* debug.c (debug): Use new way of getting line number.

* eval.c (eval_error): Use source_loc_str to get source location.

* match.c (debuglf, sem_err, file_err): Likewise.

* parser.h (source_loc_str): Declared.

* parser.l (parse_init): form_to_ln_hash must be equal based now.

* parser.y (rl): Store new form of read-time source location info.

* txr.1: Documented load.

1 files changed, 1 insertions, 1 deletions

diff --git a/parser.y b/parser.y
index bf58d9ff..49705100 100644
--- a/parser.y
+++ b/parser.y
@@ -995,7 +995,7 @@ static val choose_quote(val quoted_form)
 
 val rl(val form, val lineno)
 {
-  sethash(form_to_ln_hash, form, lineno);
+  sethash(form_to_ln_hash, form, cons(lineno, spec_file_str));
   return form;
 }