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 d7e2b30f7ed9a7c516f57649e5c9952493ae6226..655a9a4d25cafde5a1b40c07beaae7fd8685edb3 100644 (file)
--- 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)