diff --git a/lbuiltin.c b/lbuiltin.c index ccb739c0..274e301e 100644 --- a/lbuiltin.c +++ b/lbuiltin.c @@ -1,5 +1,5 @@ /* -** $Id: lbuiltin.c,v 1.103 2000/04/13 16:46:43 roberto Exp roberto $ +** $Id: lbuiltin.c,v 1.104 2000/04/13 18:08:18 roberto Exp roberto $ ** Built-in functions ** See Copyright Notice in lua.h */ @@ -223,7 +223,7 @@ void luaB_newtag (lua_State *L) { void luaB_copytagmethods (lua_State *L) { lua_pushnumber(L, lua_copytagmethods(L, luaL_check_int(L, 1), - luaL_check_int(L, 2))); + luaL_check_int(L, 2))); } void luaB_rawgettable (lua_State *L) { @@ -296,7 +296,8 @@ void luaB_dostring (lua_State *L) { lua_error(L, "`dostring' cannot run pre-compiled code"); if (lua_dobuffer(L, s, l, luaL_opt_string(L, 2, s)) == 0) passresults(L); - /* else return no value */ + else + lua_pushnil(L); } @@ -304,7 +305,8 @@ void luaB_dofile (lua_State *L) { const char *fname = luaL_opt_string(L, 1, NULL); if (lua_dofile(L, fname) == 0) passresults(L); - /* else return no value */ + else + lua_pushnil(L); } diff --git a/ldblib.c b/ldblib.c index 1859346e..ecb69c76 100644 --- a/ldblib.c +++ b/ldblib.c @@ -1,5 +1,5 @@ /* -** $Id: ldblib.c,v 1.11 2000/03/03 14:58:26 roberto Exp roberto $ +** $Id: ldblib.c,v 1.12 2000/03/30 17:19:48 roberto Exp roberto $ ** Interface from Lua to its debug API ** See Copyright Notice in lua.h */ @@ -88,6 +88,7 @@ static void getlocal (lua_State *L) { lua_pushstring(L, lvar.name); lua_pushobject(L, lvar.value); } + else lua_pushnil(L); } @@ -100,6 +101,7 @@ static void setlocal (lua_State *L) { lvar.value = luaL_nonnullarg(L, 3); if (lua_setlocal(L, &ar, &lvar)) lua_pushstring(L, lvar.name); + else lua_pushnil(L); }