summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2012-02-12 00:25:41 -0800
committerKaz Kylheku <kaz@kylheku.com>2012-02-12 00:25:41 -0800
commit658d2d955629d7619098ac9568f329da55d8176d (patch)
tree72f2be016cb7a1668bc609223fa9362eacb974d5 /eval.c
parentfce7c87fa0099e5414607676fc73c9dfa9d7649c (diff)
downloadtxr-658d2d955629d7619098ac9568f329da55d8176d.tar.gz
txr-658d2d955629d7619098ac9568f329da55d8176d.tar.bz2
txr-658d2d955629d7619098ac9568f329da55d8176d.zip
Task #11486: continuation. Take into account base position
in debug reporting. * debug.c (debug): New argument, base. * debug.h (debug_check): New argument, base. (debug): Declaration updated. * eval.c (do_eval): Pass new argument of debug_check as nil. * match.c (LOG_MISMATCH, LOG_MATCH): Take into account base when displaying character position. (do_match_line): Pass base position to debug_check. (match_files): Pass nil as base to debug_check.
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 947d53d8..598e25a2 100644
--- a/eval.c
+++ b/eval.c
@@ -361,7 +361,7 @@ static val do_eval(val form, val env, val ctx_form,
debug_enter;
type_check(env, ENV);
- debug_check(consp(form) ? form : ctx_form, env, nil, nil, nil);
+ debug_check(consp(form) ? form : ctx_form, env, nil, nil, nil, nil);
if (nullp(form)) {
debug_return (nil);