# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 834430788 0
# Node ID 5cd52d4838f85e3b40e604fb52826df19cf38211
# Parent  ecfc288350ab6aab52e433beccdb991d14c3db15
(mark_object): Do set ARRAY_MARK_FLAG for bool-vectors.

diff -r ecfc288350ab -r 5cd52d4838f8 src/alloc.c
--- a/src/alloc.c	Mon Jun 10 18:19:25 1996 +0000
+++ b/src/alloc.c	Mon Jun 10 18:19:48 1996 +0000
@@ -1822,7 +1822,13 @@
 	}
 #endif /* MULTI_FRAME */
       else if (GC_BOOL_VECTOR_P (obj))
-	;
+	{
+	  register struct Lisp_Vector *ptr = XVECTOR (obj);
+
+	  if (ptr->size & ARRAY_MARK_FLAG)
+	    break;   /* Already marked */
+	  ptr->size |= ARRAY_MARK_FLAG; /* Else mark it */
+	}
       else
 	{
 	  register struct Lisp_Vector *ptr = XVECTOR (obj);