diff options
Diffstat (limited to 'lbaselib.c')
-rw-r--r-- | lbaselib.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lbaselib.c,v 1.103 2002/10/25 21:36:54 roberto Exp roberto $ | 2 | ** $Id: lbaselib.c,v 1.104 2002/11/06 19:08:00 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 | */ |
@@ -561,17 +561,17 @@ static int auxresume (lua_State *L, lua_State *co, int narg) { | |||
561 | int status; | 561 | int status; |
562 | if (!lua_checkstack(co, narg)) | 562 | if (!lua_checkstack(co, narg)) |
563 | luaL_error(L, "too many arguments to resume"); | 563 | luaL_error(L, "too many arguments to resume"); |
564 | lua_movethread(L, co, narg); | 564 | lua_xmove(L, co, narg); |
565 | status = lua_resume(co, narg); | 565 | status = lua_resume(co, narg); |
566 | if (status == 0) { | 566 | if (status == 0) { |
567 | int nres = lua_gettop(co); | 567 | int nres = lua_gettop(co); |
568 | if (!lua_checkstack(L, narg)) | 568 | if (!lua_checkstack(L, narg)) |
569 | luaL_error(L, "too many results to resume"); | 569 | luaL_error(L, "too many results to resume"); |
570 | lua_movethread(co, L, nres); /* move yielded values */ | 570 | lua_xmove(co, L, nres); /* move yielded values */ |
571 | return nres; | 571 | return nres; |
572 | } | 572 | } |
573 | else { | 573 | else { |
574 | lua_movethread(co, L, 1); /* move error message */ | 574 | lua_xmove(co, L, 1); /* move error message */ |
575 | return -1; /* error flag */ | 575 | return -1; /* error flag */ |
576 | } | 576 | } |
577 | } | 577 | } |
@@ -608,7 +608,7 @@ static int luaB_cocreate (lua_State *L) { | |||
608 | luaL_arg_check(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1), 1, | 608 | luaL_arg_check(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1), 1, |
609 | "Lua function expected"); | 609 | "Lua function expected"); |
610 | lua_pushvalue(L, 1); /* move function to top */ | 610 | lua_pushvalue(L, 1); /* move function to top */ |
611 | lua_movethread(L, NL, 1); /* move function from L to NL */ | 611 | lua_xmove(L, NL, 1); /* move function from L to NL */ |
612 | return 1; | 612 | return 1; |
613 | } | 613 | } |
614 | 614 | ||