2009-05-13から1日間の記事一覧
何らかのエラーが起こった場合(例外が投げられた場合)の処理を加えてみました。以下がソース。 #!/usr/bin/gosh (define (main args) (if (null? (cdr args)) (copy-port (current-input-port) (current-output-port)) ; start guard phase (guard (ex ; c…
何らかのエラーが起こった場合(例外が投げられた場合)の処理を加えてみました。以下がソース。 #!/usr/bin/gosh (define (main args) (if (null? (cdr args)) (copy-port (current-input-port) (current-output-port)) ; start guard phase (guard (ex ; c…