From c1a58a1f8903be21f8c52b70d1ed9e115e7c8d8b Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 24 Sep 2012 21:25:19 -0700 Subject: * eval.c (apply): Fix in error message: hard coded "apply" instead of using ctx_form. --- ChangeLog | 5 +++++ eval.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 3d05b8ed..76c7c549 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2012-09-24 Kaz Kylheku + + * eval.c (apply): Fix in error message: hard coded "apply" instead + of using ctx_form. + 2012-09-24 Kaz Kylheku Bugfix: internal funcall functions not handling functions diff --git a/eval.c b/eval.c index e5a251f8..bc126c72 100644 --- a/eval.c +++ b/eval.c @@ -273,7 +273,7 @@ val apply(val fun, val arglist, val ctx_form) type_check (fun, FUN); type_assert (listp(arglist), - (lit("apply arglist ~s is not a list"), arglist, nao)); + (lit("~s: arglist ~s is not a list"), car(ctx_form), arglist, nao)); variadic = fun->f.variadic; fixparam = fun->f.fixparam; -- cgit v1.2.3