Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +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)
(let ((exprs (call-with-input-file filename
(lambda (port)
(read-all port)))))
(read-all/source port filename)))))
(for-each
(lambda (expr)
(apply eval (cons expr env)))