From 7406ef40cdafef300262b0dc3eef90eeb582a7e7 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 17 Sep 2013 10:34:13 -0700 Subject: [PATCH] syncproc.scm (call-with-output-copier): (copy-output) can be #f Another place (copy-output), ie. channel-read, is incorrectly assumed to return a fixnum. --- src/runtime/syncproc.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/runtime/syncproc.scm b/src/runtime/syncproc.scm index d0a7c1093..149defe76 100644 --- a/src/runtime/syncproc.scm +++ b/src/runtime/syncproc.scm @@ -262,7 +262,7 @@ USA. (if (and nonblock? (input-port/open? port)) (begin (port/set-input-blocking-mode port 'BLOCKING) - (do () ((not (fix:> (copy-output) 0)))) + (do () ((= (or (copy-output) 0) 0))) (input-port/close port))) status))) (receiver #f))))) \ No newline at end of file -- 2.25.1