* gc-thunk is deprecated. Use after-gc-hook instead.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 8c121cd..a1234ac 100644 (file)
--- 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 5689e5f..6919f0e 100644 (file)
--- 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))