diff options
-rw-r--r-- | lapi.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lapi.c,v 1.40 1999/03/01 17:49:04 roberto Exp roberto $ | 2 | ** $Id: lapi.c,v 1.41 1999/03/04 21:17:26 roberto Exp roberto $ |
3 | ** Lua API | 3 | ** Lua API |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -620,10 +620,10 @@ static int checkfunc (TObject *o) | |||
620 | char *lua_getobjname (lua_Object o, char **name) | 620 | char *lua_getobjname (lua_Object o, char **name) |
621 | { /* try to find a name for given function */ | 621 | { /* try to find a name for given function */ |
622 | set_normalized(L->stack.top, Address(o)); /* to be accessed by "checkfunc" */ | 622 | set_normalized(L->stack.top, Address(o)); /* to be accessed by "checkfunc" */ |
623 | if ((*name = luaT_travtagmethods(checkfunc)) != NULL) | 623 | if ((*name = luaS_travsymbol(checkfunc)) != NULL) |
624 | return "tag-method"; | ||
625 | else if ((*name = luaS_travsymbol(checkfunc)) != NULL) | ||
626 | return "global"; | 624 | return "global"; |
625 | else if ((*name = luaT_travtagmethods(checkfunc)) != NULL) | ||
626 | return "tag-method"; | ||
627 | else return ""; | 627 | else return ""; |
628 | } | 628 | } |
629 | 629 | ||