bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit f5386ada8707770b5620e378a015aec26dbff2ad
parent 24f7a22c8921fce12d268d2c461702d488a1e7f7
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Mon, 11 Feb 2008 21:37:03 +0000

finish mzlib docs, except for contracts

svn: r8623

original commit: b03e7426ebda7a56827a3818ad96dea7e2cc5346

Diffstat:
M
collects/scribble/manual.ss
 | 
12
++++++------

1 file changed, 6 insertions(+), 6 deletions(-)
diff --git 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))]