add okaytogc

dragoncoder047 · web-flow · commit 45b931d5a9cb · 2022-08-15T17:42:54.000-04:00
diff --git a/ulisp-esp32.ino b/ulisp-esp32.ino
@@ -221,6 +221,7 @@ jmp_buf toplevel_errorbuffer;
 jmp_buf *errorbuffer = &toplevel_errorbuffer;
 unsigned int Freespace = 0;
 object *Freelist;
+bool okaytogc = true;
 unsigned int I2CCount;
 unsigned int TraceFn[TRACEMAX];
 unsigned int TraceDepth[TRACEMAX];
@@ -497,6 +498,7 @@ unsigned int GCCount = 0;
 #endif
 
 void gc (object *form, object *env) {
+  if (!okaytogc) return;
   #if defined(printgcs)
   int start = Freespace;
   #endif
