diff options
-rw-r--r-- | opcode.c | 8 |
1 files changed, 2 insertions, 6 deletions
@@ -3,7 +3,7 @@ | |||
3 | ** TecCGraf - PUC-Rio | 3 | ** TecCGraf - PUC-Rio |
4 | */ | 4 | */ |
5 | 5 | ||
6 | char *rcs_opcode="$Id: opcode.c,v 3.50 1995/11/16 20:46:24 roberto Exp $"; | 6 | char *rcs_opcode="$Id: opcode.c,v 3.52 1996/01/09 20:22:44 roberto Exp roberto $"; |
7 | 7 | ||
8 | #include <setjmp.h> | 8 | #include <setjmp.h> |
9 | #include <stdlib.h> | 9 | #include <stdlib.h> |
@@ -520,12 +520,8 @@ int lua_call (char *funcname) | |||
520 | int lua_dofile (char *filename) | 520 | int lua_dofile (char *filename) |
521 | { | 521 | { |
522 | int status; | 522 | int status; |
523 | char *message = lua_openfile (filename); | 523 | if (lua_openfile(filename)) |
524 | if (message) | ||
525 | { | ||
526 | lua_message(message); | ||
527 | return 1; | 524 | return 1; |
528 | } | ||
529 | status = do_protectedmain(); | 525 | status = do_protectedmain(); |
530 | lua_closefile(); | 526 | lua_closefile(); |
531 | return status; | 527 | return status; |