From be8b3e9356dc59fa808673c9b46c57dd51141ae3 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Fri, 19 Oct 2012 12:11:57 -0700 Subject: [PATCH] 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. --- src/runtime/process.scm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/runtime/process.scm b/src/runtime/process.scm index 8d2b018dc..384dc2d73 100644 --- 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) -- 2.25.1