Gaucheマニュアルのcatサンプルを改造してみる。

cat.scm

#!/usr/bin/env gosh

(define (open-with-input-files files proc)
  (if (null? files)
    (proc (current-input-port) )
    (for-each 
      (lambda (f)
        (call-with-input-file f proc))
      files)))

(define (main args)   ;entry point
  (open-with-input-files 
    (cdr args)
    (cute copy-port <> (current-output-port))))