comparison src/print.c @ 67638:5c55209169fc

2005-12-17 Chong Yidong <[e-mail]> * print.c (print_preprocess): Just signal an error if print_depth is exceeded.

67637:eb9d3a206a25

  int loop_count = 0;
  Lisp_Object halftail;

  /* Give up if we go so deep that print_object will get an error.  */
  /* See similar code in print_object.  */
  /* Because print_preprocess "follows" nested lists in a slightly
     different order from print_object, there is a risk of giving up
     too soon.  In that case, a deeply nested circular list may cause
     print_object to loop.  Using 3 * PRINT_CIRCLE should make this
     possibility negligible, but at some point someone will have to
     sit down and do a more careful analysis. -- cyd */
  if (print_depth >= 3 * PRINT_CIRCLE)
    return;

  /* Avoid infinite recursion for circular nested structure
     in the case where Vprint_circle is nil.  */
  if (NILP (Vprint_circle))
    {

67638:5c55209169fc

  int loop_count = 0;
  Lisp_Object halftail;

  /* Give up if we go so deep that print_object will get an error.  */
  /* See similar code in print_object.  */
  if (print_depth >= PRINT_CIRCLE)
    error ("Apparently circular structure being printed");

  /* Avoid infinite recursion for circular nested structure
     in the case where Vprint_circle is nil.  */
  if (NILP (Vprint_circle))
    {