From 97b7edb206830d661e1eab30b40bffed93e9569e Mon Sep 17 00:00:00 2001
From: Mike Pall <mike>
Date: Mon, 28 May 2012 21:38:23 +0200
Subject: [PATCH] Fix argument checks for coroutine.create().

---
 src/lib_base.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/lib_base.c b/src/lib_base.c
index 927c1bca..149aa5cf 100644
--- a/src/lib_base.c
+++ b/src/lib_base.c
@@ -550,9 +550,10 @@ LJLIB_CF(coroutine_running)
 
 LJLIB_CF(coroutine_create)
 {
-  lua_State *L1 = lua_newthread(L);
+  lua_State *L1;
   if (!(L->base < L->top && tvisfunc(L->base)))
     lj_err_argt(L, 1, LUA_TFUNCTION);
+  L1 = lua_newthread(L);
   setfuncV(L, L1->top++, funcV(L->base));
   return 1;
 }