1
0
mirror of https://github.com/lua/lua synced 2026-06-08 15:34:49 +00:00

coroutines may have C bodies

This commit is contained in:
Roberto Ierusalimschy
2009-11-27 13:38:51 -02:00
parent 3e41afcec5
commit a654e82f5c
+2 -3
View File
@@ -1,5 +1,5 @@
/*
** $Id: lbaselib.c,v 1.227 2009/11/25 15:27:51 roberto Exp roberto $
** $Id: lbaselib.c,v 1.228 2009/11/26 11:39:20 roberto Exp roberto $
** Basic library
** See Copyright Notice in lua.h
*/
@@ -616,8 +616,7 @@ static int luaB_auxwrap (lua_State *L) {
static int luaB_cocreate (lua_State *L) {
lua_State *NL = lua_newthread(L);
luaL_argcheck(L, lua_isfunction(L, 1) && !lua_iscfunction(L, 1), 1,
"Lua function expected");
luaL_checktype(L, 1, LUA_TFUNCTION);
lua_pushvalue(L, 1); /* move function to top */
lua_xmove(L, NL, 1); /* move function from L to NL */
return 1;