aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lbaselib.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/lbaselib.c b/lbaselib.c
index d9a61336..b639222b 100644
--- a/lbaselib.c
+++ b/lbaselib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lbaselib.c,v 1.223 2009/11/13 17:01:40 roberto Exp roberto $ 2** $Id: lbaselib.c,v 1.224 2009/11/16 15:51:03 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*/
@@ -449,11 +449,11 @@ static int pcallcont (lua_State *L) {
449 int errfunc; /* call has an error function in bottom of the stack */ 449 int errfunc; /* call has an error function in bottom of the stack */
450 int status = lua_getctx(L, &errfunc); 450 int status = lua_getctx(L, &errfunc);
451 lua_assert(status != LUA_OK); 451 lua_assert(status != LUA_OK);
452 lua_pushboolean(L, (status == LUA_YIELD)); 452 lua_pushboolean(L, (status == LUA_YIELD)); /* first result (status) */
453 if (errfunc) /* came from xpcall? */ 453 if (errfunc) /* came from xpcall? */
454 lua_replace(L, 1); /* put result in place of error function */ 454 lua_replace(L, 1); /* put first result in place of error function */
455 else /* came from pcall */ 455 else /* came from pcall */
456 lua_insert(L, 1); /* open space for result */ 456 lua_insert(L, 1); /* open space for first result */
457 return lua_gettop(L); 457 return lua_gettop(L);
458} 458}
459 459