read_lines.scm (317B)
1 (define (read-lines file detail) 2 (let ((infile (open-input-file file))) 3 (let loop ((lines '()) 4 (next-line (read-line infile))) 5 (if (eof-object? next-line) 6 (begin (close-input-port infile) 7 (reverse lines)) 8 (loop (cons (detail next-line) lines) 9 (read-line infile))))))