From 3fdecca05ea781c592d5acf0c3610f3a2be31706 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 24 Feb 2012 16:06:47 -0800
Subject: * 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.
---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index 7fc4fb58..fe385826 100644
--- a/eval.c
+++ b/eval.c
@@ -103,7 +103,7 @@ noreturn static val eval_error(val form, val fmt, ...)
 
   va_start (vl, fmt);
   if (form)
-    format(stream, lit("(~a:~a) "), spec_file_str, source_loc(form), nao);
+    format(stream, lit("(~a) "), source_loc_str(form), nao);
   (void) vformat(stream, fmt, vl);
   va_end (vl);
 
-- 
cgit v1.2.3