mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-23 13:01:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

Prevent crash from #267.

Browse source
This commit is contained in:
Daniel Kochmański 2016-12-03 23:19:16 +01:00
parent 055fad4f5d
commit cbb4e47d00
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/file.d
View file

@ -2611,6 +2611,8 @@ safe_fclose(FILE *stream)
{
const cl_env_ptr the_env = ecl_process_env();
int output;
/* If someone have closed our fd, do nothing. See #267. */
unlikely_if (fileno(stream) == -1) return 0;
ecl_disable_interrupts_env(the_env);
output = fclose(stream);
ecl_enable_interrupts_env(the_env);