# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781938851 0
# Node ID a40af805e036a0bf3f40cf5eed552bcf23be1c4d
# Parent  3601bf7327b2a72943d7cc0be29e7e0ec62b8787
(mark_object): Use the new substructure.

diff -r 3601bf7327b2 -r a40af805e036 src/alloc.c
--- a/src/alloc.c	Wed Oct 12 05:13:45 1994 +0000
+++ b/src/alloc.c	Wed Oct 12 05:14:11 1994 +0000
@@ -1642,6 +1642,16 @@
 	     instead, markers are removed from the chain when freed by gc.  */
 	  break;
 
+	case Lisp_Misc_Intfwd:
+	case Lisp_Misc_Boolfwd:
+	case Lisp_Misc_Objfwd:
+	case Lisp_Misc_Buffer_Objfwd:
+	  /* Don't bother with Lisp_Buffer_Objfwd,
+	     since all markable slots in current buffer marked anyway.  */
+	  /* Don't need to do Lisp_Objfwd, since the places they point
+	     are protected with staticpro.  */
+	  break;
+
 	default:
 	  abort ();
 	}
@@ -1680,14 +1690,6 @@
 
     case Lisp_Int:
     case Lisp_Subr:
-    case Lisp_Intfwd:
-    case Lisp_Boolfwd:
-    case Lisp_Objfwd:
-    case Lisp_Buffer_Objfwd:
-    /* Don't bother with Lisp_Buffer_Objfwd,
-       since all markable slots in current buffer marked anyway.  */
-    /* Don't need to do Lisp_Objfwd, since the places they point
-       are protected with staticpro.  */
       break;
 
     default: