Error reports trace through layers of macroexpansion.

* eval.c (error_trace): New function. Consolidates
error reporting between unhandled exception handling
in uw_throw, and the catcher in the repl.
(op_defmacro, expand_macrolet): Propagate location info from
body to wrapping block, and to the macro binding. In the
latter function, also to the body that is wrapped by local
macros.
(do_expand, macroexpand_1): Propagate location info from macro
expander to expansion, only taking it from the form if the
macro doesn't supply it.

* eval.h (error_trace): Declared.

* parser.c (repl): Replace error reporting code with call to
error_trace.

* unwind.c (uw_throw): uw_throw: likewise.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.h b/eval.h
index 78a0f8b0..06bae699 100644
--- a/eval.h
+++ b/eval.h
@@ -32,6 +32,7 @@ extern val last_form_evaled, last_form_expanded;
 
 noreturn val eval_error(val form, val fmt, ...);
 val lookup_origin(val form);
+void error_trace(val exsym, val exvals, val out_stream, val prefix);
 val make_env(val fbindings, val vbindings, val up_env);
 val copy_env(val oenv);
 val env_fbind(val env, val sym, val fun);