[Emacs-diffs] Changes to emacs/src/alloc.c [lexbind]

[Miles Bader]

Index: emacs/src/alloc.c
diff -c emacs/src/alloc.c:1.272.2.12 emacs/src/alloc.c:1.272.2.13
*** emacs/src/alloc.c:1.272.2.12        Sat Jul 17 02:51:57 2004
--- emacs/src/alloc.c   Sat Sep  4 09:18:39 2004
***************
*** 2395,2400 ****
--- 2395,2411 ----
    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.  */