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 (call-with-port
(open-input-file filename) (open-input-file filename)
(lambda (port) (lambda (port)
(read-all port)))) (read-all/source port filename))))
(cdr expr))))))) (cdr expr)))))))
(define-syntax include-ci (define-syntax include-ci