* eval.c (func_get_name): New function.

(bind_args): Include the entire context form in argument
mismatch errors.
(apply): Include the function name, or else source code
if it has no name, in argument mismatch erors.
(eval_init): Register func-get-name intrinsic.

* eval.h (func_get_name): Declared.

* txr.1: Documented func-get-name.

1 files changed, 1 insertions, 0 deletions

diff --git a/eval.h b/eval.h
index 61f20b7e..ea74148d 100644
--- a/eval.h
+++ b/eval.h
@@ -41,6 +41,7 @@ val interp_fun(val env, val fun, val args);
 val fboundp(val sym);
 val special_operator_p(val sym);
 val macro_form_p(val form, val menv);
+val func_get_name(val fun, val env);
 void reg_varl(val sym, val val);
 void reg_var(val sym, val val);
 void reg_fun(val sym, val fun);