Remove handle-subprocess-status-change from nonblocking/subprocess-

wait.  Block-on-process-status-change has just continued because
handle-subprocess-status-change was just called; don't call it again.

diff --git a/src/runtime/process.scm b/src/runtime/process.scm
index 8d2b018dcad84cec8144f1faf6f14f73988f975a..384dc2d7329bc8d49b85861ff122fda293a3e687 100644 (file)
--- a/src/runtime/process.scm
+++ b/src/runtime/process.scm
@@ -209,9 +209,7 @@ USA.
    (lambda ()
      (let ((status (%subprocess-status process)))
        (if (eqv? status 0)
-          (begin
-            (block-on-process-status-change)
-            (handle-subprocess-status-change)))))))
+          (block-on-process-status-change))))))
 
 (define hook/subprocess-wait normal/subprocess-wait)