From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Sat, 1 Apr 2017 14:51:48 +0000 (+0200)
Subject: core: Increase GC safety.
X-Git-Tag: v0.5~57
X-Git-Url: https://jxself.org/git/?p=mes.git;a=commitdiff_plain;h=28fd45b7b0e4dd40bbce59ebe3a5c70edd3d0a32

core: Increase GC safety.

* mes.c (GC_SAFETY): Set to 1000 cells (WAS: 100).
* scaffold/mini-mes.c (GC_SAFETY): Likewise.
---

diff --git a/mes.c b/mes.c
index 43c48e73..b93f6188 100644
--- a/mes.c
+++ b/mes.c
@@ -43,7 +43,7 @@ typedef int bool;
 
 int ARENA_SIZE = 100000;
 int MAX_ARENA_SIZE = 20000000;
-int GC_SAFETY = 100;
+int GC_SAFETY = 1000;
 
 typedef int SCM;
 enum type_t {TCHAR, TCLOSURE, TCONTINUATION, TFUNCTION, TKEYWORD, TMACRO, TNUMBER, TPAIR, TREF, TSPECIAL, TSTRING, TSYMBOL, TVALUES, TVECTOR, TBROKEN_HEART};
diff --git a/scaffold/mini-mes.c b/scaffold/mini-mes.c
index 81c1e540..609d1208 100644
--- a/scaffold/mini-mes.c
+++ b/scaffold/mini-mes.c
@@ -33,7 +33,7 @@ int ARENA_SIZE = 100000;
 int ARENA_SIZE = 1000000000;
 #endif
 int MAX_ARENA_SIZE = 20000000;
-int GC_SAFETY = 5000;
+int GC_SAFETY = 1000;
 
 char *arena = 0;