mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

revert 4a2ac0623c

Browse source 
* module/ice-9/popen.scm (open-pipe*): No need to pump the pipes
  guardian here, now that hooks are working again.
This commit is contained in:
Andy Wingo 2011-04-13 12:16:00 +02:00
parent 8e76ce94a2
commit 37325c9bd2
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/ice-9/popen.scm
View file

@ -139,10 +139,6 @@ A port to the process (based on pipes) is created and returned.
@var{modes} specifies whether an input, an output or an input-output @var{modes} specifies whether an input, an output or an input-output
port to the process is created: it should be the value of port to the process is created: it should be the value of
@code{OPEN_READ}, @code{OPEN_WRITE} or @code{OPEN_BOTH}." @code{OPEN_READ}, @code{OPEN_WRITE} or @code{OPEN_BOTH}."
;; Until we get GC hooks working again, pump the guardian here.
(reap-pipes)
(let* ((port/pid (apply open-process mode command args)) (let* ((port/pid (apply open-process mode command args))
(port (car port/pid))) (port (car port/pid)))
(pipe-guardian port) (pipe-guardian port)