rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

`io.input'/`io.output' always return current file

This commit is contained in:
Roberto Ierusalimschy 2003-03-14 16:00:16 -03:00
parent d8a3a00d84
commit 05d567d52e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
liolib.c
View File

@ -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 ** Standard I/O (and system) library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -238,7 +238,6 @@ static int g_iofile (lua_State *L, const char *name, const char *mode) {
} }
else { else {
const char *filename = lua_tostring(L, 1); const char *filename = lua_tostring(L, 1);
lua_pushstring(L, name);
if (filename) { if (filename) {
FILE **pf = newfile(L); FILE **pf = newfile(L);
*pf = fopen(filename, mode); *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 */ tofile(L, 1); /* check that it's a valid file handle */
lua_pushvalue(L, 1); lua_pushvalue(L, 1);
} }
lua_pushstring(L, name);
lua_pushvalue(L, -2);
lua_rawset(L, lua_upvalueindex(1)); lua_rawset(L, lua_upvalueindex(1));
return 0; return 1;
} }
} }