summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/eval.c b/eval.c
index 25a099fa..a1f9a77c 100644
--- a/eval.c
+++ b/eval.c
@@ -920,14 +920,14 @@ static val bind_macro_params(val env, val menv, val params, val form,
if (form) {
if (loose_p == colon_k)
goto nil_out;
- eval_error(ctx_form, lit("~s: atom ~s not matched by parameter list"),
- car(ctx_form), form, nao);
+ eval_error(ctx_form, lit("~s: atom ~s not matched by params ~s"),
+ car(ctx_form), form, params, nao);
}
if (!optargs) {
if (!loose_p)
- eval_error(ctx_form, lit("~s: insufficient number of arguments"),
- car(ctx_form), nao);
+ eval_error(ctx_form, lit("~s: missing arguments for params ~s"),
+ car(ctx_form), params, nao);
if (loose_p == colon_k)
goto nil_out;
}