From 1af2c342a587c13a2834dec946e5eea24265e775 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Wed, 16 May 2012 14:26:32 -0700 Subject: [PATCH] Fix commit 339824b so %channel-read returns no-data instead of eof. --- src/runtime/io.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)))) -- 2.25.1