Commit e3e56238 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(check_cons_list): New function (contents commented out).

parent a3111ae4
......@@ -2395,6 +2395,17 @@ DEFUN ("cons", Fcons, Scons, 2, 2, 0,
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. */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment