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

In cl_clear_input(), do not complain when fseek() fails.

Browse source
This commit is contained in:
jjgarcia 2002-12-17 10:53:29 +00:00
parent b0e60245a4
commit c935faf44a
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/file.d
View file

@ -828,8 +828,7 @@ BEGIN:
case smm_input:
if (fp == NULL)
wrong_file_handler(strm);
if (fseek(fp, 0L, 2) != 0)
io_error(strm);
fseek(fp, 0L, 2);
break;
case smm_synonym: