From bb799ee9eea58f3ce3abb75b2aa4214277ae6a0f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 17 Oct 2010 19:20:18 -0700
Subject: [PATCH] fix problem with recursive prints in custom printers   Merge
 to 5.0.2

---
 src/racket/src/print.c | 1 -
 1 file changed, 1 deletion(-)

diff --git a/src/racket/src/print.c b/src/racket/src/print.c
index a47332ea70..f7e5ce2dea 100644
--- a/src/racket/src/print.c
+++ b/src/racket/src/print.c
@@ -3983,7 +3983,6 @@ static void custom_write_struct(Scheme_Object *s, Scheme_Hash_Table *ht,
   a[1] = o;
   if (notdisplay >= 3) {
     a[2] = scheme_bin_plus(pp->depth_delta, scheme_make_integer(notdisplay - 3));
-    pp->depth_delta = a[2];
   } else
     a[2] = (notdisplay ? scheme_true : scheme_false);