yielding across lua_call (first version)

lapi.h

@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.h,v 2.2 2005/04/25 19:24:10 roberto Exp roberto $
+** $Id: lapi.h,v 2.3 2006/07/11 15:53:29 roberto Exp roberto $
 ** Auxiliary functions from Lua API
 ** See Copyright Notice in lua.h
 */
@@ -13,4 +13,8 @@
 
 #define api_incr_top(L)   {L->top++; api_check(L, L->top <= L->ci->top);}
 
+#define adjustresults(L,nres) \
+    { if ((nres) == LUA_MULTRET && L->top >= L->ci->top) L->ci->top = L->top; }
+
+
 #endif