diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-03-26 10:14:00 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1999-03-26 10:14:00 -0300 |
commit | a775a2d81ac31ae211a9682a2a57c6ca95e11115 (patch) | |
tree | 58daed1acef1fec0f66d778210b8eda7bcf99450 | |
parent | e9aa98d59484013b0aec29ddb197b3bd4b98b2f1 (diff) | |
download | lua-a775a2d81ac31ae211a9682a2a57c6ca95e11115.tar.gz lua-a775a2d81ac31ae211a9682a2a57c6ca95e11115.tar.bz2 lua-a775a2d81ac31ae211a9682a2a57c6ca95e11115.zip |
check first whether function is global.
-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 | ||