* 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.

2 files changed, 9 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index c9389f6b..46a88252 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2014-02-01  Kaz Kylheku  <kaz@kylheku.com>
+
+	* 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.
+
 2014-01-31  Kaz Kylheku  <kaz@kylheku.com>
 
 	* configure: remove stray debugging printf from the
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);
 }
 
 /*