標準入力ポートを閉じてみた

gosh> (close-input-port (standard-input-port))
#<undef>
gosh> *** IO-CLOSED-ERROR: I/O attempted on closed port: #<iport(closed) (stdin) 0x9db40>
Stack Trace:
_______________________________________
gosh> *** IO-CLOSED-ERROR: I/O attempted on closed port: #<iport(closed) (stdin) 0x9db40>
Stack Trace:
_______________________________________
gosh> *** IO-CLOSED-ERROR: I/O attempted on closed port: #<iport(closed) (stdin) 0x9db40>
Stack Trace:
_______________________________________
...(以下ループ)

ひぃ！

gosh> (close-output-port (standard-output-port))
*** IO-CLOSED-ERROR: I/O attempted on closed port: #<oport(closed) (stdout) 0x9daa0>
Stack Trace:
_______________________________________
*** IO-CLOSED-ERROR: I/O attempted on closed port: #<oport(closed) (stdout) 0x9daa0>
Stack Trace:
_______________________________________
*** IO-CLOSED-ERROR: I/O attempted on closed port: #<oport(closed) (stdout) 0x9daa0>
Stack Trace:
_______________________________________
...(以下ループ)