[bpt/guile.git] / 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))
Commit	Line	Data
6069e973 NJ	1	(close-port (current-input-port))
	2	(let loop ()
	3	(display "closed\n" (current-error-port))
	4	(force-output (current-error-port))
	5	(loop))