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

fix defstruct rendering (PR 9906)

Browse Source 
svn: r12416
This commit is contained in:
Matthew Flatt 2008-11-12 19:09:14 +00:00
parent d0a5616cb0
commit aca2258501
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
collects/scribble/private/manual-proc.ss
View File

@ -573,7 +573,7 @@
0)) 0))
fields)))]) fields)))])
(if (and (short-width . < . max-proto-width) (if (and (short-width . < . max-proto-width)
(not immutable?) immutable?
(not transparent?)) (not transparent?))
(make-omitable-paragraph (make-omitable-paragraph
(list (list
@ -590,16 +590,19 @@
(to-flow the-name) (to-flow the-name)
(if (or (null? fields) (if (or (null? fields)
(short-width . < . max-proto-width)) (short-width . < . max-proto-width))
flow-spacer flow-spacer
(to-flow (make-element (to-flow (make-element
#f (list spacer (schemeparenfont "("))))) #f (list spacer (schemeparenfont "(")))))
(to-flow (if (or (null? fields) (to-flow (if (or (null? fields)
(short-width . < . max-proto-width)) (short-width . < . max-proto-width))
(make-element (make-element
#f (list (to-element (map field-view #f (cons (to-element (map field-view
fields)) fields))
(schemeparenfont ")"))) (if (and immutable?
(to-element (field-view (car fields))))))) (not transparent?))
(list (schemeparenfont ")"))
null)))
(to-element (field-view (car fields)))))))
(if (short-width . < . max-proto-width) (if (short-width . < . max-proto-width)
null null
(let loop ([fields (if (null? fields) (let loop ([fields (if (null? fields)