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 43c48e732d8f1bd37023605a299e717819c63156..b93f61883b619749bf3973208b281a13cf950ee9 100644 (file)
--- 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 81c1e5407d124f67b1adb87ac05f48e7b067ac8b..609d120854595524ab99196e5f04a8e48641f698 100644 (file)
--- 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;