mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

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

Browse source
This commit is contained in:
Dirk Herrmann 2000-06-27 13:52:49 +00:00
parent e5d2c2fa4f
commit ac37358068
2 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -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> 2000-06-16 Dirk Herrmann <D.Herrmann@tu-bs.de>
* common-list.scm (intersection, set-difference, remove-if, * common-list.scm (intersection, set-difference, remove-if,

8
ice-9/popen.scm
View file

@ -95,13 +95,7 @@ information on how to interpret this value."
(close-process-quietly (cons p pid)))) (close-process-quietly (cons p pid))))
(loop (pipe-guardian))))))) (loop (pipe-guardian)))))))
(set! gc-thunk (add-hook! after-gc-hook reap-pipes)
(let ((old-thunk gc-thunk))
(lambda ()
(if old-thunk (old-thunk))
(reap-pipes))))
;; (add-hook! after-gc-hook reap-pipes)
(define-public (open-input-pipe command) (open-pipe command OPEN_READ)) (define-public (open-input-pipe command) (open-pipe command OPEN_READ))
(define-public (open-output-pipe command) (open-pipe command OPEN_WRITE)) (define-public (open-output-pipe command) (open-pipe command OPEN_WRITE))