diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2012-02-12 00:25:41 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2012-02-12 00:25:41 -0800 |
commit | 658d2d955629d7619098ac9568f329da55d8176d (patch) | |
tree | 72f2be016cb7a1668bc609223fa9362eacb974d5 /eval.c | |
parent | fce7c87fa0099e5414607676fc73c9dfa9d7649c (diff) | |
download | txr-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |