From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Tue, 17 Sep 2013 17:15:23 +0000 (-0700)
Subject: synchronous-process-wait: (copy-output) can be #f
X-Git-Tag: release-9.2.0~104
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8a710c9ba6b48baa488cc0a0607d9a28318a69a9;p=mit-scheme.git

synchronous-process-wait: (copy-output) can be #f

Fix intermittent error: wrong-type-argument #f to integer-zero?.
---

diff --git a/src/runtime/syncproc.scm b/src/runtime/syncproc.scm
index 16d6b1904..d0a7c1093 100644
--- a/src/runtime/syncproc.scm
+++ b/src/runtime/syncproc.scm
@@ -195,7 +195,7 @@ USA.
 		    (begin
 		      (if redisplay-hook (redisplay-hook))
 		      (do ()
-			  ((= (copy-output) 0))
+			  ((= (or (copy-output) 0) 0))
 			(if redisplay-hook (redisplay-hook)))))))))))
   (subprocess-wait* process))