From f746b568d797d6b35571968b838d540147dde3f9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 1 Feb 2014 03:26:52 -0800
Subject: * lib.c (d): Disable garbage collection around the dump. It's importa
 for this function not to have the side effect of triggering garbage
 collection, when it is used for debugging issues that show up under
 --gc-debug.

---
 lib.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib.c')

diff --git a/lib.c b/lib.c
index 4213f0d4..d490a2c1 100644
--- a/lib.c
+++ b/lib.c
@@ -5577,7 +5577,9 @@ void dump(val obj, val out)
  */
 void d(val obj)
 {
+  int save = gc_state(0);
   dump(obj, std_output);
+  gc_state(save);
 }
 
 /*
-- 
cgit v1.2.3