(Fgarbage_collect): Clear consing_since_gc first thing.

58595309 · Karl Heuer · 82a74107 · 58595309
Commit 58595309 authored May 24, 1995 by Karl Heuer
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

src/alloc.c src/alloc.c +4 -0

No files found.
--- 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))