From f5386ada8707770b5620e378a015aec26dbff2ad Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 11 Feb 2008 21:37:03 +0000 Subject: [PATCH] finish mzlib docs, except for contracts svn: r8623 original commit: b03e7426ebda7a56827a3818ad96dea7e2cc5346 --- collects/scribble/manual.ss | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/scribble/manual.ss b/collects/scribble/manual.ss index aa11e6d7..0291c510 100644 --- a/collects/scribble/manual.ss +++ b/collects/scribble/manual.ss @@ -716,10 +716,14 @@ (syntax-rules () [(_ name fields #:mutable #:inspector #f desc ...) (**defstruct name fields #f #t desc ...)] + [(_ name fields #:mutable #:transparent desc ...) + (**defstruct name fields #f #t desc ...)] [(_ name fields #:mutable desc ...) (**defstruct name fields #f #f desc ...)] [(_ name fields #:inspector #f desc ...) (**defstruct name fields #t #t desc ...)] + [(_ name fields #:transparent desc ...) + (**defstruct name fields #t #t desc ...)] [(_ name fields desc ...) (**defstruct name fields #t #f desc ...)])) (define-syntax **defstruct @@ -1521,9 +1525,7 @@ (to-flow spacer) (to-flow (make-element #f - (list (to-element '#:inspector) - spacer - (to-element #f) + (list (to-element '#:transparent) (schemeparenfont ")")))) 'cont 'cont))] @@ -1543,9 +1545,7 @@ (to-flow spacer) (to-flow (make-element #f - (list (to-element '#:inspector) - spacer - (to-element #f) + (list (to-element '#:transparent) (schemeparenfont ")")))) 'cont 'cont))]