From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 17 Sep 2013 17:34:13 +0000 (-0700)
Subject: syncproc.scm (call-with-output-copier): (copy-output) can be #f
X-Git-Tag: mit-scheme-pucked-9.2.12~457^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7406ef40cdafef300262b0dc3eef90eeb582a7e7;p=mit-scheme.git

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 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