picrin/piclib/scheme/file.scm

12 lines
343 B
Scheme
Raw Normal View History

2014-07-19 01:15:53 -04:00
(define-library (scheme file)
(import (scheme base))
(define (call-with-input-file filename callback)
(call-with-port (open-input-file filename) callback))
(define (call-with-output-file filename callback)
(call-with-port (open-output-file filename) callback))
(export call-with-input-file
call-with-output-file))