summaryrefslogtreecommitdiff
path: root/module/ice-9/popen.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/ice-9/popen.scm')
-rw-r--r--module/ice-9/popen.scm13
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)