From 546e58b0a868662271553a15f2b1c1a8ea317582 Mon Sep 17 00:00:00 2001
From: Keith Packard <keithp@keithp.com>
Date: Sat, 5 Nov 2016 15:12:05 -0700
Subject: altos/lisp: make sure stack->formals_last gets moved during GC

Failing this leads to broken formals chains

Signed-off-by: Keith Packard <keithp@keithp.com>
---
 src/lisp/ao_lisp_mem.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/lisp/ao_lisp_mem.c')

diff --git a/src/lisp/ao_lisp_mem.c b/src/lisp/ao_lisp_mem.c
index 29d8dbf4..9e716da9 100644
--- 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)
 {
-- 
cgit v1.2.3