diff options
-rw-r--r-- | lbaselib.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lbaselib.c,v 1.312 2015/10/29 15:21:04 roberto Exp roberto $ | 2 | ** $Id: lbaselib.c,v 1.313 2016/04/11 19:18:40 roberto Exp roberto $ |
3 | ** Basic library | 3 | ** Basic library |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -208,8 +208,8 @@ static int luaB_type (lua_State *L) { | |||
208 | 208 | ||
209 | static int pairsmeta (lua_State *L, const char *method, int iszero, | 209 | static int pairsmeta (lua_State *L, const char *method, int iszero, |
210 | lua_CFunction iter) { | 210 | lua_CFunction iter) { |
211 | luaL_checkany(L, 1); | ||
211 | if (luaL_getmetafield(L, 1, method) == LUA_TNIL) { /* no metamethod? */ | 212 | if (luaL_getmetafield(L, 1, method) == LUA_TNIL) { /* no metamethod? */ |
212 | luaL_checktype(L, 1, LUA_TTABLE); /* argument must be a table */ | ||
213 | lua_pushcfunction(L, iter); /* will return generator, */ | 213 | lua_pushcfunction(L, iter); /* will return generator, */ |
214 | lua_pushvalue(L, 1); /* state, */ | 214 | lua_pushvalue(L, 1); /* state, */ |
215 | if (iszero) lua_pushinteger(L, 0); /* and initial value */ | 215 | if (iszero) lua_pushinteger(L, 0); /* and initial value */ |