From 8a710c9ba6b48baa488cc0a0607d9a28318a69a9 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 17 Sep 2013 10:15:23 -0700 Subject: [PATCH] synchronous-process-wait: (copy-output) can be #f Fix intermittent error: wrong-type-argument #f to integer-zero?. --- 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 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)) -- 2.25.1