shithub: sl

Info  •  Files  •  Log  •  Branches

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