Allow (include) to read line information

This commit is contained in:
Justin Ethier 2020-07-21 12:42:50 -04:00
parent 8a65baef9c
commit 7794cbd98f

View file

@ -39,7 +39,7 @@
(call-with-port
(open-input-file filename)
(lambda (port)
(read-all port))))
(read-all/source port filename))))
(cdr expr)))))))
(define-syntax include-ci