From Lua 5.2: coroutine.running(). Needs -DLUAJIT_ENABLE_LUA52COMPAT.

diff --git a/src/lib_base.c b/src/lib_base.c
index 746a4fd660d9c58551d4654b4f74a2fc6c505166..bac49a0bfbf5849b0ff10e855611713719528621 100644 (file)
--- a/src/lib_base.c
+++ b/src/lib_base.c
@@ -3,7 +3,7 @@
 ** Copyright (C) 2005-2011 Mike Pall. See Copyright Notice in luajit.h
 **
 ** Major portions taken verbatim or adapted from the Lua interpreter.
-** Copyright (C) 1994-2008 Lua.org, PUC-Rio. See Copyright Notice in lua.h
+** Copyright (C) 1994-2011 Lua.org, PUC-Rio. See Copyright Notice in lua.h
 */
 
 #include <stdio.h>
@@ -522,9 +522,15 @@ LJLIB_CF(coroutine_status)
 
 LJLIB_CF(coroutine_running)
 {
+#ifdef LUAJIT_ENABLE_LUA52COMPAT
+  int ismain = lua_pushthread(L);
+  setboolV(L->top++, ismain);
+  return 2;
+#else
   if (lua_pushthread(L))
     setnilV(L->top++);
   return 1;
+#endif
 }
 
 LJLIB_CF(coroutine_create)