From 676b78504d894035d0548e0778d83ca2787408d9 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 10 Nov 2008 22:50:54 +0000
Subject: [PATCH] fix problems in lex-rename simplification; other tiny
 improvements and doc repairs

svn: r12380

original commit: ad75c8aa580e4d32a976bd5983ab4f99a48496e5
---
 collects/mzlib/pretty.ss | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/collects/mzlib/pretty.ss b/collects/mzlib/pretty.ss
index ca90839..7e38db9 100644
--- a/collects/mzlib/pretty.ss
+++ b/collects/mzlib/pretty.ss
@@ -1089,12 +1089,13 @@
        (define max-call-head-width 5)
 
        (define (no-sharing? expr count apair? acdr)
-         (if (and found 
-                  (apair? expr)
-                  (hash-table-get found (acdr expr) #f))
-             #f
-             (or (zero? count)
-                 (no-sharing? (acdr expr) (sub1 count) apair? acdr))))
+         (if (apair? expr)
+             (if (and found 
+                      (hash-table-get found (acdr expr) #f))
+                 #f
+                 (or (zero? count)
+                     (no-sharing? (acdr expr) (sub1 count) apair? acdr)))
+             #f))
 
        (define (style head expr apair? acar acdr)
          (case (look-in-style-table head)