(Fgarbage_collect): Call CHECK_CONS_LIST before and after gc.

diff --git a/src/alloc.c b/src/alloc.c
index a907247d21c90ab998f65abb4a85fce06f512c1d..f3af3940e157d982d5b1f1483f4f857fc56c9c38 100644 (file)
--- 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;