aboutsummaryrefslogtreecommitdiff
path: root/lbaselib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lbaselib.c')
-rw-r--r--lbaselib.c7
1 files changed, 6 insertions, 1 deletions
diff --git a/lbaselib.c b/lbaselib.c
index 83ad306d..fd6687e6 100644
--- a/lbaselib.c
+++ b/lbaselib.c
@@ -261,6 +261,11 @@ static int luaB_next (lua_State *L) {
261} 261}
262 262
263 263
264static int pairscont (lua_State *L, int status, lua_KContext k) {
265 (void)L; (void)status; (void)k; /* unused */
266 return 3;
267}
268
264static int luaB_pairs (lua_State *L) { 269static int luaB_pairs (lua_State *L) {
265 luaL_checkany(L, 1); 270 luaL_checkany(L, 1);
266 if (luaL_getmetafield(L, 1, "__pairs") == LUA_TNIL) { /* no metamethod? */ 271 if (luaL_getmetafield(L, 1, "__pairs") == LUA_TNIL) { /* no metamethod? */
@@ -270,7 +275,7 @@ static int luaB_pairs (lua_State *L) {
270 } 275 }
271 else { 276 else {
272 lua_pushvalue(L, 1); /* argument 'self' to metamethod */ 277 lua_pushvalue(L, 1); /* argument 'self' to metamethod */
273 lua_call(L, 1, 3); /* get 3 values from metamethod */ 278 lua_callk(L, 1, 3, 0, pairscont); /* get 3 values from metamethod */
274 } 279 }
275 return 3; 280 return 3;
276} 281}