summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ice-9/ChangeLog4
-rw-r--r--ice-9/popen.scm8
2 files changed, 5 insertions, 7 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 8c121cd2a..a1234ace3 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+2000-06-27 Dirk Herrmann <D.Herrmann@tu-bs.de>
+
+ * popen.scm: gc-thunk is deprecated. Use after-gc-hook instead.
+
2000-06-16 Dirk Herrmann <D.Herrmann@tu-bs.de>
* common-list.scm (intersection, set-difference, remove-if,
diff --git a/ice-9/popen.scm b/ice-9/popen.scm
index 5689e5ffc..6919f0eca 100644
--- a/ice-9/popen.scm
+++ b/ice-9/popen.scm
@@ -95,13 +95,7 @@ information on how to interpret this value."
(close-process-quietly (cons p pid))))
(loop (pipe-guardian)))))))
-(set! gc-thunk
- (let ((old-thunk gc-thunk))
- (lambda ()
- (if old-thunk (old-thunk))
- (reap-pipes))))
-
-;; (add-hook! after-gc-hook reap-pipes)
+(add-hook! after-gc-hook reap-pipes)
(define-public (open-input-pipe command) (open-pipe command OPEN_READ))
(define-public (open-output-pipe command) (open-pipe command OPEN_WRITE))