diff options
-rw-r--r-- | ice-9/ChangeLog | 4 | ||||
-rw-r--r-- | ice-9/popen.scm | 8 |
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)) |