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.

diff --git a/src/runtime/syncproc.scm b/src/runtime/syncproc.scm
index d0a7c1093609efa100e6278acd74c8564f5e0d5d..149defe769e7c8fd77a03d193409b869526ea28b 100644 (file)
--- 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