diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-09 20:42:41 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-09 20:42:41 -0700 |
| commit | 4a9648030f7609fb6f3702e2225c333d4f8a8fb4 (patch) | |
| tree | 292394a6f99f531dd5261be931e71306dbe9d49d | |
| parent | 038fc65739325034ff335b1c88dada632916a659 (diff) | |
| download | txr-4a9648030f7609fb6f3702e2225c333d4f8a8fb4.tar.gz txr-4a9648030f7609fb6f3702e2225c333d4f8a8fb4.tar.bz2 txr-4a9648030f7609fb6f3702e2225c333d4f8a8fb4.zip | |
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.
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 1 |
1 files changed, 1 insertions, 0 deletions
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)) |