Simplify GOOPS effective method cache format
[bpt/guile.git] / test-suite / tests / popen-child.scm
1 (close-port (current-input-port))
2 (let loop ()
3 (display "closed\n" (current-error-port))
4 (force-output (current-error-port))
5 (loop))