small bug: `write' must return three values in case of errors

This commit is contained in:
Roberto Ierusalimschy 2002-12-04 13:17:36 -02:00
parent c75c3cfd19
commit 041cb96992

View File

@ -1,5 +1,5 @@
/* /*
** $Id: liolib.c,v 2.24 2002/11/18 16:53:19 roberto Exp roberto $ ** $Id: liolib.c,v 2.25 2002/11/25 15:05:39 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
*/ */
@ -413,8 +413,7 @@ static int g_write (lua_State *L, FILE *f, int arg) {
status = status && (fwrite(s, sizeof(char), l, f) == l); status = status && (fwrite(s, sizeof(char), l, f) == l);
} }
} }
pushresult(L, status, NULL); return pushresult(L, status, NULL);
return 1;
} }