finish mzlib docs, except for contracts

svn: r8623

original commit: b03e7426ebda7a56827a3818ad96dea7e2cc5346
This commit is contained in:
Matthew Flatt 2008-02-11 21:37:03 +00:00
parent 24f7a22c89
commit f5386ada87

View File

@ -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))]