diff options
Diffstat (limited to 'hash.c')
-rw-r--r-- | hash.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3,7 +3,7 @@ | |||
3 | ** hash manager for lua | 3 | ** hash manager for lua |
4 | */ | 4 | */ |
5 | 5 | ||
6 | char *rcs_hash="$Id: hash.c,v 2.20 1994/11/25 19:27:03 roberto Exp $"; | 6 | char *rcs_hash="$Id: hash.c,v 2.20 1994/11/28 15:10:51 roberto Exp roberto $"; |
7 | 7 | ||
8 | #include "mem.h" | 8 | #include "mem.h" |
9 | #include "opcode.h" | 9 | #include "opcode.h" |
@@ -313,9 +313,9 @@ void lua_next (void) | |||
313 | Hash *t; | 313 | Hash *t; |
314 | lua_Object o = lua_getparam(1); | 314 | lua_Object o = lua_getparam(1); |
315 | lua_Object r = lua_getparam(2); | 315 | lua_Object r = lua_getparam(2); |
316 | if (o == 0 || r == 0) | 316 | if (o == LUA_NOOBJECT || r == LUA_NOOBJECT) |
317 | lua_error ("too few arguments to function `next'"); | 317 | lua_error ("too few arguments to function `next'"); |
318 | if (lua_getparam(3) != 0) | 318 | if (lua_getparam(3) != LUA_NOOBJECT) |
319 | lua_error ("too many arguments to function `next'"); | 319 | lua_error ("too many arguments to function `next'"); |
320 | if (!lua_istable(o)) | 320 | if (!lua_istable(o)) |
321 | lua_error ("first argument of function `next' is not a table"); | 321 | lua_error ("first argument of function `next' is not a table"); |