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.

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);