diff options
Diffstat (limited to 'module/ice-9/popen.scm')
-rw-r--r-- | module/ice-9/popen.scm | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/module/ice-9/popen.scm b/module/ice-9/popen.scm index befa528ab..43b5d2f62 100644 --- a/module/ice-9/popen.scm +++ b/module/ice-9/popen.scm @@ -22,9 +22,10 @@ #:use-module (ice-9 binary-ports) #:use-module (ice-9 guardians) #:use-module (ice-9 threads) + #:use-module (ice-9 weak-tables) #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) - #:export (port/pid-table open-pipe* open-pipe close-pipe open-input-pipe + #:export (open-pipe* open-pipe close-pipe open-input-pipe open-output-pipe open-input-output-pipe pipeline)) (eval-when (expand load eval) @@ -79,12 +80,6 @@ ;; an open pipe is gc'd or a close-port is used. (define pipe-guardian (make-guardian)) -;; a weak hash-table to store the process ids. -;; XXX use of this table is deprecated. It is no longer used here, and -;; is populated for backward compatibility only (since it is exported). -(define port/pid-table (make-weak-key-hash-table)) -(define port/pid-table-mutex (make-mutex)) - (define (pipe->fdes) (let ((p (pipe))) (cons (port->fdes (car p)) @@ -145,10 +140,6 @@ port to the process is created: it should be the value of (pipe-guardian pipe-info) (%set-port-property! port 'popen-pipe-info pipe-info) - ;; XXX populate port/pid-table for backward compatibility. - (with-mutex port/pid-table-mutex - (hashq-set! port/pid-table port pid)) - port)))) (define (open-pipe command mode) |