shithub: femtolisp

Info  •  Files  •  Log  •  Branches

OP_FOR: use _applyn to work with every type of functions and fail otherwise

--- a/flisp.c

+++ b/flisp.c

@@ -1648,7 +1648,7 @@

 			for(; s <= hi; s++){

 				FL(stack)[FL(sp)-2] = FL(stack)[FL(sp)-3];

 				FL(stack)[FL(sp)-1] = fixnum(s);

-				v = apply_cl(1);

+				v = _applyn(1);

 				FL(sp) = n;

 			}

 			POPN(4);