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

Propagate UNREAD-CHAR from an ECHO-STREAM to its actual input stream (R. M. Kreuter)

Browse source
This commit is contained in:
Juanjo Garcia-Ripoll 2012-02-03 18:29:53 +01:00
parent 083e6e1e85
commit 72f7b1ea7d
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

@ -2051,6 +2051,7 @@ echo_read_char(cl_object strm)
ecl_write_char(c, ECHO_STREAM_OUTPUT(strm));
} else {
strm->stream.last_code[0] = EOF;
ecl_read_char(ECHO_STREAM_INPUT(strm));
}
return c;
}
@ -2068,6 +2069,7 @@ echo_unread_char(cl_object strm, ecl_character c)
unread_twice(strm);
}
strm->stream.last_code[0] = c;
ecl_unread_char(c, ECHO_STREAM_INPUT(strm));
}
static ecl_character