From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 5 Jan 2016 21:43:33 +0000 (-0700)
Subject: Remove obsolete nonblocking/subprocess-wait.
X-Git-Tag: mit-scheme-pucked-9.2.12~380
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9f930c758cdf5d6de2c13b90a5eeac40eb038961;p=mit-scheme.git

Remove obsolete nonblocking/subprocess-wait.

Reduce runtime/ diffs between this branch and master.
---

diff --git a/src/runtime/process.scm b/src/runtime/process.scm
index d7e2b30f7..655a9a4d2 100644
--- a/src/runtime/process.scm
+++ b/src/runtime/process.scm
@@ -211,18 +211,6 @@ USA.
      (lambda ()
        (deregister-subprocess-event registration)))))
 
-(define (normal/subprocess-wait process)
-  ((ucode-primitive process-wait 1) (subprocess-index process)))
-
-(define (nonblocking/subprocess-wait process)
-  (without-interrupts
-   (lambda ()
-     (let ((status (%subprocess-status process)))
-       (if (eqv? status 0)
-	   (block-on-process-status-change))))))
-
-(define hook/subprocess-wait normal/subprocess-wait)
-
 (define (subprocess-continue-foreground process)
   (let loop ()
     ((ucode-primitive process-continue-foreground 1)