From: Kim F. Storm <storm@cua.dk>
Date: Sun, 3 Apr 2005 22:27:05 +0000 (+0000)
Subject: (Fgarbage_collect): Call CHECK_CONS_LIST before and after gc.
X-Git-Tag: ttn-vms-21-2-B4~1260
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bbc012e0c3a0e91beecb09643956fa09979420ab;p=emacs.git

(Fgarbage_collect): Call CHECK_CONS_LIST before and after gc.
---

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;