From 9f930c758cdf5d6de2c13b90a5eeac40eb038961 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Tue, 5 Jan 2016 14:43:33 -0700 Subject: [PATCH] Remove obsolete nonblocking/subprocess-wait. Reduce runtime/ diffs between this branch and master. --- src/runtime/process.scm | 12 ------------ 1 file changed, 12 deletions(-) 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) -- 2.25.1