mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
21 lines
378 B
Scheme
21 lines
378 B
Scheme
(import (scheme base)
|
|
(scheme file)
|
|
(scheme write))
|
|
|
|
(define (cat fname)
|
|
(call-with-input-file
|
|
fname
|
|
(lambda (fp)
|
|
(define (loop)
|
|
(let ((s (read-line fp)))
|
|
(cond
|
|
((not (eof-object? s))
|
|
(display s)
|
|
;(newline)
|
|
(loop)))))
|
|
(loop))))
|
|
|
|
(cat
|
|
"cyclone.scm"
|
|
;"scheme/base.sld"
|
|
)
|