1.1 --- a/seqlualib.c	Wed Aug 20 01:52:35 2014 +0200
     1.2 +++ b/seqlualib.c	Wed Aug 20 01:59:55 2014 +0200
     1.3 @@ -11,9 +11,9 @@
     1.4    iter->L = L;
     1.5    if (luaL_getmetafield(L, idx, "__call")) {
     1.6      if (lua_type(L, -1) != LUA_TFUNCTION) luaL_error(L, "__call is not a function");
     1.7 -    lua_replace(L, idx);
     1.8      iter->itertype = SEQLUA_ITERTYPE_FUNC;
     1.9    } else if (lua_type(L, idx) == LUA_TFUNCTION) {
    1.10 +    lua_pushvalue(L, idx);
    1.11      iter->itertype = SEQLUA_ITERTYPE_FUNC;
    1.12    } else {
    1.13      if (luaL_getmetafield(L, idx, "__index")) {
    1.14 @@ -23,6 +23,7 @@
    1.15        luaL_checktype(L, idx, LUA_TTABLE);
    1.16        iter->itertype = SEQLUA_ITERTYPE_RAW;
    1.17      }
    1.18 +    lua_pushvalue(L, idx);
    1.19    }
    1.20    iter->i = 0;
    1.21  }
    1.22 @@ -43,7 +44,7 @@
    1.23      lua_rawgeti(L, -1, i);
    1.24    }
    1.25    if (lua_isnil(L, -1)) {
    1.26 -    lua_pop(L, 1);
    1.27 +    lua_pop(L, 2);
    1.28      return 0;
    1.29    }
    1.30    return 1;