# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1090776904 0
# Node ID 9fc5aae4053eff58b064075dbb6232fbedf9cf5f
# Parent  1b66d336a770bcdb0104b8c0e364ce63d4390636
(check_cons_list): New function (contents commented out).

diff -r 1b66d336a770 -r 9fc5aae4053e src/alloc.c
--- a/src/alloc.c	Sun Jul 25 05:45:53 2004 +0000
+++ b/src/alloc.c	Sun Jul 25 17:35:04 2004 +0000
@@ -2395,6 +2395,17 @@
   return val;
 }
 
+/* Get an error now if there's any junk in the cons free list.  */
+void
+check_cons_list ()
+{
+  struct Lisp_Cons *tail = cons_free_list;
+
+#if 0
+  while (tail)
+    tail = *(struct Lisp_Cons **)&tail->cdr;
+#endif
+}
 
 /* Make a list of 2, 3, 4 or 5 specified objects.  */