dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* 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
commit ac37358068
2 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ice-9/popen.scm
View file

@ -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))