suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix char-ready? to not block when only part of a character is ready

Browse Source 
svn: r5639
This commit is contained in:
Matthew Flatt 2007-02-20 01:41:05 +00:00
parent 844ed2d48f
commit 23241decd1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/port.c
View File

@ -2763,7 +2763,7 @@ scheme_char_ready (Scheme_Object *port)
if (!scheme_byte_ready(port)) if (!scheme_byte_ready(port))
return 0; return 0;
do_peekc_skip(port, scheme_make_integer(0), 0, &unavail); do_peekc_skip(port, scheme_make_integer(0), 2, &unavail);
return !unavail; return !unavail;
} }