artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Fix unreadchar on string port when unreading EOF.

Browse source 
* src/posix.c (unreadchar): Fix on string port when unreading EOF.
This commit is contained in:
Danny Milosavljevic 2020-06-14 22:41:31 +02:00
parent 449f3c7e00
commit 3b312ca983
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/posix.c
View file

@ -71,6 +71,8 @@ unreadchar (int c)
{ {
if (__stdin >= 0) if (__stdin >= 0)
return fdungetc (c, __stdin); return fdungetc (c, __stdin);
if (c == EOF) // can't unread EOF
return c;
SCM port = current_input_port (); SCM port = current_input_port ();
SCM string = STRING (port); SCM string = STRING (port);
size_t length = LENGTH (string); size_t length = LENGTH (string);