From d975dc7f2dbd7803821a0955ad041bb9a13be501 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 12 Nov 2008 19:09:14 +0000 Subject: [PATCH] fix defstruct rendering (PR 9906) svn: r12416 original commit: aca22585018efc028c65015dae113c866ef8cf68 --- collects/scribble/private/manual-proc.ss | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/collects/scribble/private/manual-proc.ss b/collects/scribble/private/manual-proc.ss index d5df2e00..1cbaeaed 100644 --- a/collects/scribble/private/manual-proc.ss +++ b/collects/scribble/private/manual-proc.ss @@ -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)