# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 730671865 0
# Node ID 54c8c66cd9acc46af6e9596b6acff1246891310c
# Parent  02bb7721b67ce6913757c62ae7856a1135607e95
(mark_interval): Add ignored arg.
(mark_interval_tree): Pass new arg to traverse_intervals.

diff -r 02bb7721b67c -r 54c8c66cd9ac src/alloc.c
--- a/src/alloc.c	Thu Feb 25 20:23:59 1993 +0000
+++ b/src/alloc.c	Thu Feb 25 20:24:25 1993 +0000
@@ -248,8 +248,9 @@
 /* Mark the pointers of one interval. */
 
 static void
-mark_interval (i)
+mark_interval (i, dummy)
      register INTERVAL i;
+     Lisp_Object dummy;
 {
   if (XMARKBIT (i->plist))
     abort ();
@@ -264,7 +265,7 @@
   if (XMARKBIT (tree->plist))
     return;
 
-  traverse_intervals (tree, 1, 0, mark_interval);
+  traverse_intervals (tree, 1, 0, mark_interval, Qnil);
 }
 
 #define MARK_INTERVAL_TREE(i) \