# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 801279564 0
# Node ID 6be0b7a0ac4443651a2b07b423e02d9b66db9c15
# Parent  937c7fced6eed90f71fddfbf48e9cf99fe46e265
(Fgarbage_collect): Clear consing_since_gc first thing.

diff -r 937c7fced6ee -r 6be0b7a0ac44 src/alloc.c
--- a/src/alloc.c	Wed May 24 01:02:08 1995 +0000
+++ b/src/alloc.c	Wed May 24 01:39:24 1995 +0000
@@ -1352,6 +1352,10 @@
   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))