From a654e82f5c0dcc57d5db385a359379d226054b39 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 27 Nov 2009 13:38:51 -0200
Subject: [PATCH] coroutines may have C bodies

---
 lbaselib.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lbaselib.c b/lbaselib.c
index 70753614..bbc4cec5 100644
--- a/lbaselib.c
+++ b/lbaselib.c
@@ -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;