(Fgarbage_collect): Clear consing_since_gc first thing.

diff --git a/src/alloc.c b/src/alloc.c
index 063af1e19cb3e5eb9dd2389c3ce144dc9a852f18..e2fdedde7963e8c64300f8c25f6118f014ae5f0f 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1352,6 +1352,10 @@ Garbage collection happens automatically if you cons more than\n\
   char stack_top_variable;
   register int i;
 
+  /* In case user calls debug_print during GC,
+     don't let that cause a recursive GC.  */
+  consing_since_gc = 0;
+
   /* Save a copy of the contents of the stack, for debugging.  */
 #if MAX_SAVE_STACK > 0
   if (NILP (Vpurify_flag))