From bbc012e0c3a0e91beecb09643956fa09979420ab Mon Sep 17 00:00:00 2001
From: "Kim F. Storm" <storm@cua.dk>
Date: Sun, 3 Apr 2005 22:27:05 +0000
Subject: [PATCH] (Fgarbage_collect): Call CHECK_CONS_LIST before and after gc.

---
 src/alloc.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/alloc.c b/src/alloc.c
index a907247d21c..f3af3940e15 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4687,6 +4687,8 @@ returns nil, because real GC can't be done.  */)
   if (pure_bytes_used_before_overflow)
     return Qnil;
 
+  CHECK_CONS_LIST ();
+
   /* Don't keep undo information around forever.
      Do this early on, so it is no problem if the user quits.  */
   {
@@ -4880,6 +4882,8 @@ returns nil, because real GC can't be done.  */)
 
   UNBLOCK_INPUT;
 
+  CHECK_CONS_LIST ();
+
   /* clear_marks (); */
   gc_in_progress = 0;
 
-- 
2.39.2