diff options
-rw-r--r-- | lbaselib.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 | ||