From 7794cbd98f43740542a018c3acd4f621eb62c6e8 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 21 Jul 2020 12:42:50 -0400
Subject: [PATCH] Allow (include) to read line information

---
 scheme/read.sld | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/read.sld b/scheme/read.sld
index a4e89783..51611571 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -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