Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-13 15:57:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Initial file

Browse source
This commit is contained in:
Justin Ethier 2015-06-22 22:44:45 -04:00
parent 8d72cfaff1
commit aefb75c807
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/file.sld Normal file
View file

@ -0,0 +1,12 @@
(define-library (scheme file)
(export
call-with-input-file
call-with-output-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))
))