ref: 85e6759db8e1fd064efc3cf04716b15e84ca089f
parent: f21c244d8c9be1d5e20c7be7fadf7169db82024a
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Sun Apr 2 18:11:11 EDT 2023
use argcount
--- a/flisp.c
+++ b/flisp.c
@@ -1585,8 +1585,7 @@
n = GET_INT32(ip);
ip += 4;
}
- if(nargs != n)
- lerrorf(ArgError, "too %s arguments", nargs > n ? "many" : "few");
+ argcount(nargs, n);
NEXT_OP;
OP(OP_VECTOR)
@@ -2039,7 +2038,8 @@
fl_free_gc_handles(2);
}else{
int i;
- while(SP+nargs+1 > N_STACK) grow_stack();
+ while(SP+nargs+1 > N_STACK)
+ grow_stack();
PUSH(Stack[argSP]);
for(i = 1; i < nargs; i++){
PUSH(car(Stack[argSP+i]));