aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>1999-03-26 10:14:00 -0300
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>1999-03-26 10:14:00 -0300
commita775a2d81ac31ae211a9682a2a57c6ca95e11115 (patch)
tree58daed1acef1fec0f66d778210b8eda7bcf99450
parente9aa98d59484013b0aec29ddb197b3bd4b98b2f1 (diff)
downloadlua-a775a2d81ac31ae211a9682a2a57c6ca95e11115.tar.gz
lua-a775a2d81ac31ae211a9682a2a57c6ca95e11115.tar.bz2
lua-a775a2d81ac31ae211a9682a2a57c6ca95e11115.zip
check first whether function is global.
-rw-r--r--lapi.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/lapi.c b/lapi.c
index 98b6e213..160459d8 100644
--- a/lapi.c
+++ b/lapi.c
@@ -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)
620char *lua_getobjname (lua_Object o, char **name) 620char *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