From bfd0947112a317542d77959f0ae224f8e256f9a6 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 4 Aug 2015 08:45:00 -0700 Subject: * 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. --- eval.h | 1 + 1 file changed, 1 insertion(+) (limited to 'eval.h') 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); -- cgit v1.2.3