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 d35c88d0149a5cb4e54a25eae5a3af57b4b79ce8..5a8c60e5a59dde2326eb9a6c5db359d4498d3832 100644 (file)
--- 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))))