From: Matt Birkholz Date: Fri, 19 Oct 2012 19:11:57 +0000 (-0700) Subject: Remove handle-subprocess-status-change from nonblocking/subprocess- X-Git-Tag: mit-scheme-pucked-9.2.12~550 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=be8b3e9356dc59fa808673c9b46c57dd51141ae3;p=mit-scheme.git 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 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)