summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-06-27 13:52:49 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-06-27 13:52:49 +0000
commitac373580683625b12337c52e116143adfa5be54a (patch)
treee36ef727428e4459afe530b885b1477d9aa654df
parente5d2c2fa4fb0586308f4d716c9ae9d3ce47ae237 (diff)
downloadguile-ac373580683625b12337c52e116143adfa5be54a.tar.gz
* gc-thunk is deprecated. Use after-gc-hook instead.
-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))