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

Allow (load) to read source location information

Browse source
This commit is contained in:
Justin Ethier 2020-07-23 15:52:36 -04:00
parent 7dd6ddfc71
commit d1630c6a4f
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/load.sld
View file

@ -17,7 +17,7 @@
(define (load filename . env) (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/source port filename)))))
(for-each (for-each
(lambda (expr) (lambda (expr)
(apply eval (cons expr env))) (apply eval (cons expr env)))