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

Added optional environment specifier

Browse source
This commit is contained in:
Justin Ethier 2016-01-06 23:07:18 -05:00
parent 33c9748a33
commit e41923ad05
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/load.sld
View file

@ -5,11 +5,11 @@
(scheme file) (scheme file)
(scheme read)) (scheme read))
(begin (begin
(define (load filename) (define (load filename . env)
(let ((exprs (call-with-input-file filename (let ((exprs (call-with-input-file filename
(lambda (port) (lambda (port)
(read-all port))))) (read-all port)))))
(for-each (for-each
(lambda (expr) (lambda (expr)
(eval expr)) (apply eval (cons expr env)))
exprs))))) exprs)))))