mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-30 23:45:06 +02:00
16 lines
450 B
Scheme
16 lines
450 B
Scheme
(define-library (scheme file)
|
|
(export
|
|
call-with-input-file
|
|
call-with-output-file
|
|
with-input-from-file
|
|
with-output-from-file
|
|
)
|
|
(import (scheme base))
|
|
(begin
|
|
(define (call-with-input-file string proc)
|
|
(call-with-port (open-input-file string) proc))
|
|
(define (call-with-output-file string proc)
|
|
(call-with-port (open-output-file string) proc))
|
|
TODO: with-input-from-file
|
|
TODO: with-output-from-file
|
|
))
|