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