From c3c82e304d12fcc0f8be5031ecfaf0e6f017690b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 2 Nov 2006 21:35:34 +0000
Subject: [PATCH] allow EOF result from port read handler; patch from Lauri
 Alanko, PR 8369

svn: r4752
---
 src/mzscheme/src/portfun.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/portfun.c b/src/mzscheme/src/portfun.c
index 259931d608..f068d68410 100644
--- a/src/mzscheme/src/portfun.c
+++ b/src/mzscheme/src/portfun.c
@@ -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;