shithub: femtolisp

Download patch

ref: cd45ba37d4468b4db71606ecd349bf309bdea804
parent: 55941805f8007c5737acadf962270ef8dbf15b84
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Mon Dec 23 15:44:35 EST 2024

seta(l): remove asserts

--- a/flisp.c
+++ b/flisp.c
@@ -1221,7 +1221,6 @@
 			NEXT_OP;
 
 		OP(OP_SETA)
-			assert(nargs > 0);
 			v = FL(stack)[FL(sp)-1];
 			i = *ip++;
 			FL(stack)[bp+i] = v;
@@ -1784,7 +1783,6 @@
 			NEXT_OP;
 
 		OP(OP_SETAL)
-			assert(nargs > 0);
 			v = FL(stack)[FL(sp)-1];
 			i = GET_INT32(ip);
 			ip += 4;