Function io_fclose

Source/Misc/lua/src/lua.c:12033–12038

** function to close regular files */

** function to close regular files
*/
static int io_fclose (lua_State *L) {
FILE **p = tofilep(L);
int ok = (fclose(*p) == 0);
*p = NULL;
return pushresult(L, ok, NULL);
}


static int aux_close (lua_State *L) {