From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 16 May 2012 21:26:32 +0000 (-0700)
Subject: Fix commit 339824b so %channel-read returns no-data instead of eof.
X-Git-Tag: release-9.2.0~247^2~12
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1af2c342a587c13a2834dec946e5eea24265e775;p=mit-scheme.git

Fix commit 339824b so %channel-read returns no-data instead of eof.
---

diff --git a/src/runtime/io.scm b/src/runtime/io.scm
index d35c88d01..5a8c60e5a 100644
--- a/src/runtime/io.scm
+++ b/src/runtime/io.scm
@@ -200,7 +200,7 @@ USA.
 	(let ((result (test-for-io-on-channel channel 'READ)))
 	  (case result
 	    ((READ HANGUP ERROR) (do-read))
-	    ((#F) 0)
+	    ((#F) #f)
 	    ((PROCESS-STATUS-CHANGE INTERRUPT) #t)
 	    (else (error "Unexpected test-for-io-on-channel value:" result))))
 	(do-read))))