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

fix return statement of si_copy_stream

Browse source
This commit is contained in:
Marius Gerbershagen 2019-01-20 15:57:47 +01:00
parent 2b92a7acd9
commit 0ad38e2a3d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/file.d
View file

@ -5082,7 +5082,7 @@ si_copy_stream(cl_object in, cl_object out, cl_object wait)
}
}
ecl_force_output(out);
@(return c==EOF);
@(return ((c==EOF) ? ECL_T : ECL_NIL));
}