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 a2f02aed819721d65541895250ef4703a710b9ec..61c5060e0792397ba818f7f4fb85e1db0f5ed61a 100644 (file)
--- 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