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

allow EOF result from port read handler; patch from Lauri Alanko, PR 8369

Browse Source 
svn: r4752
This commit is contained in:
Matthew Flatt 2006-11-02 21:35:34 +00:00
parent 8e8f780b4c
commit c3c82e304d
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/portfun.c
View File

@ -2912,7 +2912,7 @@ static Scheme_Object *do_read_syntax_f(const char *who, int argc, Scheme_Object
o[1] = (argc ? argv[0] : ((Scheme_Input_Port *)port)->name);
result = _scheme_apply(((Scheme_Input_Port *)port)->read_handler, 2, o);
if (SCHEME_STXP(result))
if (SCHEME_STXP(result) || SCHEME_EOFP(result))
return result;
else {
o[0] = result;