shithub: femtolisp

Download patch

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]));