summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2012-02-24 16:06:47 -0800
committerKaz Kylheku <kaz@kylheku.com>2012-02-24 16:06:47 -0800
commit3fdecca05ea781c592d5acf0c3610f3a2be31706 (patch)
treec1f418de2b697ef64cffbd5c8c45adca80797cbf /eval.c
parent96bb428fb9d47b332f5c2e979af76e8c2ee75d0e (diff)
downloadtxr-3fdecca05ea781c592d5acf0c3610f3a2be31706.tar.gz
txr-3fdecca05ea781c592d5acf0c3610f3a2be31706.tar.bz2
txr-3fdecca05ea781c592d5acf0c3610f3a2be31706.zip
* 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.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c2
1 files changed, 1 insertions, 1 deletions
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);