diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-27 13:52:49 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-27 13:52:49 +0000 |
commit | ac373580683625b12337c52e116143adfa5be54a (patch) | |
tree | e36ef727428e4459afe530b885b1477d9aa654df | |
parent | e5d2c2fa4fb0586308f4d716c9ae9d3ce47ae237 (diff) | |
download | guile-ac373580683625b12337c52e116143adfa5be54a.tar.gz |
* gc-thunk is deprecated. Use after-gc-hook instead.
-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)) |