diff options
Diffstat (limited to 'lobject.c')
-rw-r--r-- | lobject.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lobject.c,v 1.8 1997/12/15 16:17:20 roberto Exp roberto $ | 2 | ** $Id: lobject.c,v 1.9 1997/12/26 18:38:16 roberto Exp roberto $ |
3 | ** Some generic functions over Lua objects | 3 | ** Some generic functions over Lua objects |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -48,9 +48,9 @@ int luaO_equalObj (TObject *t1, TObject *t2) | |||
48 | case LUA_T_NUMBER: return nvalue(t1) == nvalue(t2); | 48 | case LUA_T_NUMBER: return nvalue(t1) == nvalue(t2); |
49 | case LUA_T_STRING: case LUA_T_USERDATA: return svalue(t1) == svalue(t2); | 49 | case LUA_T_STRING: case LUA_T_USERDATA: return svalue(t1) == svalue(t2); |
50 | case LUA_T_ARRAY: return avalue(t1) == avalue(t2); | 50 | case LUA_T_ARRAY: return avalue(t1) == avalue(t2); |
51 | case LUA_T_CLOSURE: return t1->value.cl == t2->value.cl; | ||
52 | case LUA_T_PROTO: return tfvalue(t1) == tfvalue(t2); | 51 | case LUA_T_PROTO: return tfvalue(t1) == tfvalue(t2); |
53 | case LUA_T_CPROTO: return fvalue(t1) == fvalue(t2); | 52 | case LUA_T_CPROTO: return fvalue(t1) == fvalue(t2); |
53 | case LUA_T_CLOSURE: return t1->value.cl == t2->value.cl; | ||
54 | default: | 54 | default: |
55 | lua_error("internal error in `lua_equalObj'"); | 55 | lua_error("internal error in `lua_equalObj'"); |
56 | return 0; /* UNREACHEABLE */ | 56 | return 0; /* UNREACHEABLE */ |