lua

commit d73c5bcfe79459efafb4d4ede67ece8df9f6ef16
parent e78c1c54aacdd581f729214b199b2eb750a349ac
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon, 14 Apr 1997 12:29:43 -0300

function name is only needed *if* there is an error.

Diffstat:
M
auxlib.c
 | 
10
+++++-----

1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/auxlib.c b/auxlib.c
@@ -1,4 +1,4 @@
-char *rcs_auxlib="$Id: auxlib.c,v 1.3 1997/04/06 14:08:08 roberto Exp roberto $";
+char *rcs_auxlib="$Id: auxlib.c,v 1.4 1997/04/07 14:48:53 roberto Exp roberto $";
 
 #include <stdio.h>
 #include <stdarg.h>
@@ -22,11 +22,11 @@ int luaI_findstring (char *name, char *list[])
 
 void luaL_arg_check(int cond, int numarg, char *extramsg)
 {
-  char *funcname;
-  lua_getobjname(lua_stackedfunction(0), &funcname);
-  if (funcname == NULL)
-    funcname = "???";
   if (!cond) {
+    char *funcname;
+    lua_getobjname(lua_stackedfunction(0), &funcname);
+    if (funcname == NULL)
+      funcname = "???";
     if (extramsg == NULL)
       luaL_verror("bad argument #%d to function `%s'", numarg, funcname);
     else