mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-29 03:19:54 +00:00
Code Issues 1 Releases Wiki Activity

Fix up close to return proper exit code.

Browse Source
This commit is contained in:
Calvin Rose 2019-05-29 11:50:46 -04:00
parent af23040d9c
commit b39ad97a87
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/core/io.c
View File

@ -288,8 +288,8 @@ static Janet cfun_io_fclose(int32_t argc, Janet *argv) {
#endif #endif
int status = pclose(iof->file); int status = pclose(iof->file);
iof->flags |= IO_CLOSED; iof->flags |= IO_CLOSED;
if (status) janet_panic("could not close file"); if (status == -1) janet_panic("could not close file");
return janet_wrap_integer(status); return janet_wrap_integer(WEXITSTATUS(status));
} else { } else {
if (fclose(iof->file)) janet_panic("could not close file"); if (fclose(iof->file)) janet_panic("could not close file");
iof->flags |= IO_CLOSED; iof->flags |= IO_CLOSED;