diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2009-11-27 13:38:51 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2009-11-27 13:38:51 -0200 |
| commit | a654e82f5c0dcc57d5db385a359379d226054b39 (patch) | |
| tree | f2a805174cafd567d4e2035e6dc55013805ca76e /lbaselib.c | |
| parent | 3e41afcec550e8c5c3c4372f72efa48cbf7031a3 (diff) | |
| download | lua-a654e82f5c0dcc57d5db385a359379d226054b39.tar.gz lua-a654e82f5c0dcc57d5db385a359379d226054b39.tar.bz2 lua-a654e82f5c0dcc57d5db385a359379d226054b39.zip | |
coroutines may have C bodies
Diffstat (limited to 'lbaselib.c')
| -rw-r--r-- | lbaselib.c | 5 |
1 files changed, 2 insertions, 3 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lbaselib.c,v 1.227 2009/11/25 15:27:51 roberto Exp roberto $ | 2 | ** $Id: lbaselib.c,v 1.228 2009/11/26 11:39:20 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 | */ |
| @@ -616,8 +616,7 @@ static int luaB_auxwrap (lua_State *L) { | |||
| 616 | 616 | ||
| 617 | static int luaB_cocreate (lua_State *L) { | 617 | static int luaB_cocreate (lua_State *L) { |
| 618 | lua_State *NL = lua_newthread(L); | 618 | lua_State *NL = lua_newthread(L); |
| 619 | luaL_argcheck(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1), 1, | 619 | luaL_checktype(L, 1, LUA_TFUNCTION); |
| 620 | "Lua function expected"); | ||
| 621 | lua_pushvalue(L, 1); /* move function to top */ | 620 | lua_pushvalue(L, 1); /* move function to top */ |
| 622 | lua_xmove(L, NL, 1); /* move function from L to NL */ | 621 | lua_xmove(L, NL, 1); /* move function from L to NL */ |
| 623 | return 1; | 622 | return 1; |