nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

details

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2002-06-05 13:59:21 -03:00
parent fa23301251
commit 6dd0b6c62b
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lbaselib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lbaselib.c,v 1.75 2002/05/16 19:09:19 roberto Exp roberto $ ** $Id: lbaselib.c,v 1.76 2002/06/03 20:11:41 roberto Exp roberto $
** Basic library ** Basic library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -106,7 +106,7 @@ static int luaB_metatable (lua_State *L) {
static int luaB_globals (lua_State *L) { static int luaB_globals (lua_State *L) {
lua_getglobals(L); /* value to be returned */ lua_getglobals(L); /* value to be returned */
if (!lua_isnone(L, 1)) { if (!lua_isnoneornil(L, 1)) {
luaL_check_type(L, 1, LUA_TTABLE); luaL_check_type(L, 1, LUA_TTABLE);
lua_pushvalue(L, 1); /* new table of globals */ lua_pushvalue(L, 1); /* new table of globals */
lua_setglobals(L); lua_setglobals(L);

4
ltablib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: ltablib.c,v 1.2 2002/04/12 19:57:29 roberto Exp roberto $ ** $Id: ltablib.c,v 1.3 2002/05/02 17:12:27 roberto Exp roberto $
** Library for Table Manipulation ** Library for Table Manipulation
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -204,7 +204,7 @@ static int luaB_sort (lua_State *L) {
int n; int n;
luaL_check_type(L, 1, LUA_TTABLE); luaL_check_type(L, 1, LUA_TTABLE);
n = lua_getn(L, 1); n = lua_getn(L, 1);
if (!lua_isnone(L, 2)) /* is there a 2nd argument? */ if (!lua_isnoneornil(L, 2)) /* is there a 2nd argument? */
luaL_check_type(L, 2, LUA_TFUNCTION); luaL_check_type(L, 2, LUA_TFUNCTION);
lua_settop(L, 2); /* make sure there is two arguments */ lua_settop(L, 2); /* make sure there is two arguments */
auxsort(L, 1, n); auxsort(L, 1, n);