From ac373580683625b12337c52e116143adfa5be54a Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Tue, 27 Jun 2000 13:52:49 +0000 Subject: [PATCH] * gc-thunk is deprecated. Use after-gc-hook instead. --- ice-9/ChangeLog | 4 ++++ 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 + + * popen.scm: gc-thunk is deprecated. Use after-gc-hook instead. + 2000-06-16 Dirk Herrmann * 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))