diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1994-12-16 13:55:04 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1994-12-16 13:55:04 -0200 |
| commit | 3365a352431a0def0acccec0807751962726c4be (patch) | |
| tree | 983a035d7f292f0ac16a17298df401a323bf512b /hash.c | |
| parent | fad57bfa008523c3568b613989a6a3f87f3cb83b (diff) | |
| download | lua-3365a352431a0def0acccec0807751962726c4be.tar.gz lua-3365a352431a0def0acccec0807751962726c4be.tar.bz2 lua-3365a352431a0def0acccec0807751962726c4be.zip | |
new constant LUA_NOOBJECT
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"); |