shithub: sl

Info  •  Files  •  Log  •  Branches

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