# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 872884377 0
# Node ID 74151390752c2445663f6af2e118836bff8fd881
# Parent  7fccc0f34e57db4ad206ffb0189dc9c2a8d10ee1
(free_marker): Call unchain_marker.

diff -r 7fccc0f34e57 -r 74151390752c src/alloc.c
--- a/src/alloc.c	Fri Aug 29 17:07:26 1997 +0000
+++ b/src/alloc.c	Fri Aug 29 19:52:57 1997 +0000
@@ -1044,6 +1044,8 @@
 free_marker (marker)
      Lisp_Object marker;
 {
+  unchain_marker (marker);
+
   XMISC (marker)->u_marker.type = Lisp_Misc_Free;
   XMISC (marker)->u_free.chain = marker_free_list;
   marker_free_list = XMISC (marker);