guile/test-suite/tests/popen-child.scm

(close-port (current-input-port))
(let loop ()
  (display "closed\n" (current-error-port))
  (force-output  (current-error-port))
  (loop))