regression: excess args not diagnosed.

This was caused by the recent work to reduce consing in
generic_funcall.

* lib.c (generic_funcall): Correct test for too many
arguments. Because we don't normalize the argument list to the
exact number of fixed args, but to at least the fixed args,
the excess args can possibly be part of the fill rather than
part of the list.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 014fd227..4906032e 100644
--- a/lib.c
+++ b/lib.c
@@ -6170,7 +6170,7 @@ val generic_funcall(val fun, struct args *args_in)
     if (args->fill < reqargs)
       callerror(fun, lit("missing required arguments"));
 
-    if (args->list)
+    if (args->fill > fixparam || args->list)
       callerror(fun, lit("too many arguments"));
 
     switch (fun->f.functype) {