* eval.c (bind_macro_params): Bugfix: enforce mismatch on

superfluous material.

1 files changed, 5 insertions, 0 deletions

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: