# HG changeset patch
# User David Ponce <david@dponce.com>
# Date 1084952233 0
# Node ID 3e6ff504a4eab4ab86bc6d7a3f1298f3e9487662
# Parent  1374d9297422fe102c22b6d2ad6582575ad01691
(print): Reset print_depth before to call print_object.

diff -r 1374d9297422 -r 3e6ff504a4ea src/print.c
--- a/src/print.c	Wed May 19 02:16:56 2004 +0000
+++ b/src/print.c	Wed May 19 07:37:13 2004 +0000
@@ -1220,7 +1220,6 @@
      register Lisp_Object printcharfun;
      int escapeflag;
 {
-  print_depth = 0;
   old_backquote_output = 0;
 
   /* Reset print_number_index and Vprint_number_table only when
@@ -1240,6 +1239,7 @@
       start = index = print_number_index;
       /* Construct Vprint_number_table.
 	 This increments print_number_index for the objects added.  */
+      print_depth = 0;
       print_preprocess (obj);
 
       /* Remove unnecessary objects, which appear only once in OBJ;
@@ -1264,6 +1264,7 @@
       print_number_index = index;
     }
 
+  print_depth = 0;
   print_object (obj, printcharfun, escapeflag);
 }