revert 4a2ac0623c3dabb2c8b9d38c27b837dcb2c7fe4e
authorAndy Wingo <wingo@pobox.com>
Wed, 13 Apr 2011 10:16:00 +0000 (12:16 +0200)
committerAndy Wingo <wingo@pobox.com>
Wed, 13 Apr 2011 10:50:41 +0000 (12:50 +0200)
* module/ice-9/popen.scm (open-pipe*): No need to pump the pipes
  guardian here, now that hooks are working again.

module/ice-9/popen.scm

index 5445ecb6b0477a5796100393a6b8edb62969548e..b3def4a1e61dc97de1dc7f5b8ba470c699e67630 100644 (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
 port to the process is created: it should be the value of
 @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))
         (port (car port/pid)))
     (pipe-guardian port)