From 65ea825e92af183f5aff9aeb7c6a7880005a7558 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 16 Feb 2014 15:43:20 -0800 Subject: * eval.c (bind_macro_params): Bugfix: enforce mismatch on superfluous material. --- ChangeLog | 5 +++++ eval.c | 5 +++++ 2 files changed, 10 insertions(+) diff --git a/ChangeLog b/ChangeLog index a362c6c9..ce00aecb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2014-02-16 Kaz Kylheku + + * eval.c (bind_macro_params): Bugfix: enforce mismatch on + superfluous material. + 2014-02-16 Kaz Kylheku In the spirit of the previous hack, here is another hack to diff --git a/eval.c b/eval.c index 5e9e2f5f..22e81926 100644 --- a/eval.c +++ b/eval.c @@ -654,6 +654,11 @@ noarg: env_vbind(new_env, params, form); } + if (form) + eval_error(ctx_form, + lit("~s: extra form part ~s not matched by parameter list"), + car(ctx_form), form, nao); + return new_env; nbind: -- cgit v1.2.3