From 4a9648030f7609fb6f3702e2225c333d4f8a8fb4 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 9 Apr 2018 20:42:41 -0700
Subject: compiler: record source loc when reading.

* share/txr/stdlib/compiler.tl (usr:compile-file): Bind
*rec-source-loc* to t, otherwise the read function doesn't
record source loc info and we don't get warnings reported
against line numbers in the processed source files.
---
 share/txr/stdlib/compiler.tl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl
index 499466ba..f599799d 100644
--- a/share/txr/stdlib/compiler.tl
+++ b/share/txr/stdlib/compiler.tl
@@ -1355,6 +1355,7 @@
         (*emit* t)
         (*eval* t)
         (*load-path* in-path)
+        (*rec-source-loc* t)
         (sys:*load-recursive* t))
     (with-resources ((in-stream (car streams) (close-stream in-stream))
                      (out-stream (cadr streams) (close-stream out-stream))
-- 
cgit v1.2.3