From b96fd0c46802b1afd500520c2f436ec4fd545009 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 28 May 2010 07:03:53 -0600 Subject: [PATCH] fix problem pretty-printing hash values that need to wrap Merge to v5.0 --- collects/racket/pretty.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/racket/pretty.rkt b/collects/racket/pretty.rkt index 8d1c56422e..08fd416bdb 100644 --- a/collects/racket/pretty.rkt +++ b/collects/racket/pretty.rkt @@ -957,7 +957,8 @@ (define (pr obj extra pp-pair depth qd) ;; may have to split on multiple lines - (let* ([can-multi (and width + (let* ([obj (if (hide? obj) (hide-val obj) obj)] + [can-multi (and width (not (size-hook obj display?)) (or (pair? obj) (mpair? obj)