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

Initial file

Browse source
This commit is contained in:
Justin Ethier 2016-01-05 21:32:39 -05:00
parent 7b349fe764
commit 6acfc987f3
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
scheme/load.sld Normal file
View file

@ -0,0 +1,15 @@
(define-library (scheme load)
(export load)
(import (scheme base)
(scheme eval)
(scheme file)
(scheme read))
(begin
(define (load filename)
(let ((exprs (call-with-input-file filename
(lambda (port)
(read-all port)))))
(for-each
(lambda (expr)
(eval expr))
exprs)))))