From baee882784999453212e85fc2f3e58613d3c77de Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 5 Jan 2016 15:05:05 -0700 Subject: [PATCH] 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/. --- 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 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 -- 2.25.1