何らかのエラーが起こった場合(例外が投げられた場合)の処理を加えてみました。以下がソース。 #!/usr/bin/gosh (define (main args) (if (null? (cdr args)) (copy-port (current-input-port) (current-output-port)) ; start guard phase (guard (ex ; catch phese (if vb) ; start exception process ((<error> ex) (print ex)) ; if catche <error> condition (else (print "Usage: gshcat [OPTION] [FILE]"))) ; otherwise ; end exception process ; main process (for-e