# 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))