suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix problem pretty-printing hash values that need to wrap

Browse Source 
Merge to v5.0
This commit is contained in:
Matthew Flatt 2010-05-28 07:03:53 -06:00
parent 6c7d83b8a7
commit b96fd0c468
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/racket/pretty.rkt
View File

@ -957,7 +957,8 @@
(define (pr obj extra pp-pair depth qd) (define (pr obj extra pp-pair depth qd)
;; may have to split on multiple lines ;; 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?)) (not (size-hook obj display?))
(or (pair? obj) (or (pair? obj)
(mpair? obj) (mpair? obj)