lua

commit 4905fdd1350bde68cd818b9198f28f5a47c208b0
parent 0267168675cb21f19e685749e1737dfd2884bdf2
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Fri,  8 Jun 2001 13:48:10 -0300

C++ warning

Diffstat:
M
liolib.c
 | 
13
+++++--------

1 file changed, 5 insertions(+), 8 deletions(-)
diff --git a/liolib.c b/liolib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: liolib.c,v 1.113 2001/06/06 18:00:19 roberto Exp roberto $
+** $Id: liolib.c,v 1.114 2001/06/07 13:46:29 roberto Exp roberto $
 ** Standard I/O (and system) library
 ** See Copyright Notice in lua.h
 */
@@ -135,13 +135,10 @@ static void resetfile (lua_State *L, int inout) {
 
 
 static int io_close (lua_State *L) {
-  FILE *f;
-  int status;
-  lua_settop(L, 1);
-  f = luaL_check_userdata(L, 1, FILEHANDLE);
-  if (f == stdin || f == stdout || f == stderr)
-    status = 1;
-  else {
+  FILE *f = (FILE *)luaL_check_userdata(L, 1, FILEHANDLE);
+  int status = 1;
+  if (f != stdin && f != stdout && f != stderr) {
+    lua_settop(L, 1);  /* make sure file is on top */
     lua_settag(L, lua_name2tag(L, CLOSEDFILEHANDLE));
     status = (CLOSEFILE(L, f) == 0);
   }