#! /bin/sh #| Hey Emacs, this is -*-scheme-*- code! #$Id: port-to-lines.ss 5758 2008-11-17 13:06:58Z erich $ exec mzscheme --require "$0" --main -- ${1+"$@"} |# #lang scheme (define (file->lines fn) (call-with-input-file fn (lambda (ip) (for/list ([line (in-lines ip)]) line)))) (define (main . args) (for ([fn (in-list args)]) (for ([line (in-list (file->lines fn))]) (display line) (newline)))) (provide (all-defined-out))