altos/lisp: make sure stack->formals_last gets moved during GC

[fw/altos] / src / lisp / ao_lisp_mem.c

diff --git a/src/lisp/ao_lisp_mem.c b/src/lisp/ao_lisp_mem.c
index 29d8dbf44d2beb657b64ec9c7285e54194d478cd..9e716da9b2ebfbf82b6ccce6c55b1afc53b3432a 100644 (file)
--- a/src/lisp/ao_lisp_mem.c
+++ b/src/lisp/ao_lisp_mem.c
@@ -35,8 +35,8 @@ uint8_t       ao_lisp_pool[AO_LISP_POOL] __attribute__((aligned(4)));
 #define DBG_POOL
 #endif
 
-#if 1
-#define DBG_DUMP
+#if 0
+#define DBG_DUMP       0
 #define DBG_OFFSET(a)  ((int) ((uint8_t *) (a) - ao_lisp_pool))
 #define DBG(...) printf(__VA_ARGS__)
 #define DBG_DO(a)      a
@@ -194,7 +194,7 @@ move_object(void)
        DBG_MOVE("move done\n");
 }
 
-#ifdef DBG_DUMP
+#if DBG_DUMP
 static void
 dump_busy(void)
 {