From 05d567d52e9155327b73fab14d7d635726943d94 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 14 Mar 2003 16:00:16 -0300
Subject: `io.input'/`io.output' always return current file

---
 liolib.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/liolib.c b/liolib.c
index cc232c9e..b18a12e4 100644
--- a/liolib.c
+++ b/liolib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: liolib.c,v 2.34 2003/03/06 19:36:44 roberto Exp roberto $
+** $Id: liolib.c,v 2.35 2003/03/11 12:24:34 roberto Exp roberto $
 ** Standard I/O (and system) library
 ** See Copyright Notice in lua.h
 */
@@ -238,7 +238,6 @@ static int g_iofile (lua_State *L, const char *name, const char *mode) {
   }
   else {
     const char *filename = lua_tostring(L, 1);
-    lua_pushstring(L, name);
     if (filename) {
       FILE **pf = newfile(L);
       *pf = fopen(filename, mode);
@@ -251,8 +250,10 @@ static int g_iofile (lua_State *L, const char *name, const char *mode) {
       tofile(L, 1);  /* check that it's a valid file handle */
       lua_pushvalue(L, 1);
     }
+    lua_pushstring(L, name);
+    lua_pushvalue(L, -2);
     lua_rawset(L, lua_upvalueindex(1));
-    return 0;
+    return 1;
   }
 }
 
-- 
cgit v1.2.3-55-g6feb