diff options
-rw-r--r-- | auxlib.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1,4 +1,4 @@ | |||
1 | char *rcs_auxlib="$Id: auxlib.c,v 1.3 1997/04/06 14:08:08 roberto Exp roberto $"; | 1 | char *rcs_auxlib="$Id: auxlib.c,v 1.4 1997/04/07 14:48:53 roberto Exp roberto $"; |
2 | 2 | ||
3 | #include <stdio.h> | 3 | #include <stdio.h> |
4 | #include <stdarg.h> | 4 | #include <stdarg.h> |
@@ -22,11 +22,11 @@ int luaI_findstring (char *name, char *list[]) | |||
22 | 22 | ||
23 | void luaL_arg_check(int cond, int numarg, char *extramsg) | 23 | void luaL_arg_check(int cond, int numarg, char *extramsg) |
24 | { | 24 | { |
25 | char *funcname; | ||
26 | lua_getobjname(lua_stackedfunction(0), &funcname); | ||
27 | if (funcname == NULL) | ||
28 | funcname = "???"; | ||
29 | if (!cond) { | 25 | if (!cond) { |
26 | char *funcname; | ||
27 | lua_getobjname(lua_stackedfunction(0), &funcname); | ||
28 | if (funcname == NULL) | ||
29 | funcname = "???"; | ||
30 | if (extramsg == NULL) | 30 | if (extramsg == NULL) |
31 | luaL_verror("bad argument #%d to function `%s'", numarg, funcname); | 31 | luaL_verror("bad argument #%d to function `%s'", numarg, funcname); |
32 | else | 32 | else |