From 58595309d2ce3c8fe67a6353390146940e8f2009 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 24 May 1995 01:39:24 +0000 Subject: [PATCH] (Fgarbage_collect): Clear consing_since_gc first thing. --- src/alloc.c | 4 ++++ 1 file changed, 4 insertions(+) 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)) -- 2.39.2