shithub: femtolisp

Download patch

ref: 3f3bedb88862a0a955c8357081e4f8ba89b88b81
parent: 3d517354ddc28b8f92dff23713e5251c74c7e3b3
author: Sigrid Solveig Haflínudóttir <[email protected]>
date: Tue Nov 26 15:54:36 EST 2024

start with a much smaller initial stack size

--- a/flisp.c
+++ b/flisp.c
@@ -2132,7 +2132,7 @@
 	FL(consflags) = bitvector_new(FL(heapsize)/sizeof(cons_t), 1);
 	htable_new(&FL(printconses), 32);
 	comparehash_init();
-	FL(nstack) = 262144;
+	FL(nstack) = 4096;
 	FL(stack) = MEM_ALLOC(FL(nstack)*sizeof(value_t));
 
 	FL(Nil) = builtin(OP_THE_EMPTY_LIST);