From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 5 Jan 2016 22:05:05 +0000 (-0700)
Subject: Remove last diff from master in runtime/.
X-Git-Tag: mit-scheme-pucked-9.2.12~377
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=baee882784999453212e85fc2f3e58613d3c77de;p=mit-scheme.git

Remove last diff from master in runtime/.

The predicate sexpr in master works only because (fix:= 0 #f).
Replace the generic arithmetic (= (or #f 0) 0) only to remove the last
diff with master in runtime/.
---

diff --git a/src/runtime/syncproc.scm b/src/runtime/syncproc.scm
index a2f02aed8..61c5060e0 100644
--- a/src/runtime/syncproc.scm
+++ b/src/runtime/syncproc.scm
@@ -253,7 +253,7 @@ USA.
 		(if (and nonblock? (input-port/open? port))
 		    (begin
 		      (port/set-input-blocking-mode port 'BLOCKING)
-		      (do () ((= (or (copy-output) 0) 0)))
+		      (do () ((not (fix:> (copy-output) 0))))
 		      (input-port/close port)))
 		status)))
 	  (receiver #f)))))
\ No newline at end of file