func-optparam-count: bugfix.

* lib.c (get_param_counts): If there are no optional
parameters, then the oa variable stays negative; we must turn
that into a zero, otherwise we return the bogus value -1 as
the number of optional arguments.

1 files changed, 1 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 89f01344..dcf9e870 100644
--- a/lib.c
+++ b/lib.c
@@ -7168,7 +7168,7 @@ static val get_param_counts(val params, cnum *fixparam, cnum *optparam)
   }
 
   *fixparam = fx;
-  *optparam = oa;
+  *optparam = (oa > 0) ? oa : 0;
   return params;
 }