(Fgarbage_collect): Clear consing_since_gc first thing.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 063af1e19cb..e2fdedde796 100644
--- 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))