** function to close regular files */
| 244 | ** function to close regular files |
| 245 | */ |
| 246 | static int io_fclose (lua_State *L) { |
| 247 | LStream *p = tolstream(L); |
| 248 | errno = 0; |
| 249 | return luaL_fileresult(L, (fclose(p->f) == 0), NULL); |
| 250 | } |
| 251 | |
| 252 | |
| 253 | static LStream *newfile (lua_State *L) { |
nothing calls this directly
no test coverage detected