lua

commit f37e65d1cb53db19d2d18cfccd8cdd4527a557d6
parent 0ef5cf22891c9d34a88ccc5d89eb0ed82b004471
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Mon, 22 Apr 1996 16:28:17 -0300

"exit" has an optional parameter of status.

Diffstat:
M
iolib.c
 | 
7
+++----

1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/iolib.c b/iolib.c
@@ -3,7 +3,7 @@
 ** Input/output library to LUA
 */
 
-char *rcs_iolib="$Id: iolib.c,v 1.39 1996/03/14 15:55:18 roberto Exp roberto $";
+char *rcs_iolib="$Id: iolib.c,v 1.40 1996/03/19 22:28:37 roberto Exp roberto $";
 
 #include <stdio.h>
 #include <ctype.h>
@@ -529,9 +529,8 @@ static void io_date (void)
 static void io_exit (void)
 {
  lua_Object o = lua_getparam(1);
- if (lua_isstring(o))
-  fprintf(stderr, "%s\n", lua_getstring(o));
- exit(1);
+ int code = lua_isnumber(o) ? (int)lua_getnumber(o) : 1;
+ exit(code);
 }
 
 /*