converted a bunch of tex-isms to scribble-isms and other small improvements in the docs
svn: r9760 original commit: 694a0d732be8c71fa5d4c421ac3316b2875cea38
This commit is contained in:
parent
3e6030ae22
commit
0ec952fca2
|
@ -6,6 +6,7 @@
|
||||||
|
|
||||||
(provide require/doc
|
(provide require/doc
|
||||||
provide/doc
|
provide/doc
|
||||||
|
thing-doc
|
||||||
parameter-doc
|
parameter-doc
|
||||||
proc-doc
|
proc-doc
|
||||||
proc-doc/names)
|
proc-doc/names)
|
||||||
|
@ -205,3 +206,19 @@
|
||||||
#'(defparam id arg-id contract . desc)
|
#'(defparam id arg-id contract . desc)
|
||||||
#'(scribble/manual)
|
#'(scribble/manual)
|
||||||
#'id))])))
|
#'id))])))
|
||||||
|
|
||||||
|
(define-provide/doc-transformer thing-doc
|
||||||
|
(lambda (stx)
|
||||||
|
(syntax-case stx ()
|
||||||
|
[(_ id contract desc)
|
||||||
|
(begin
|
||||||
|
(unless (identifier? #'id)
|
||||||
|
(raise-syntax-error 'parameter/doc
|
||||||
|
"expected an identifier"
|
||||||
|
stx
|
||||||
|
#'id))
|
||||||
|
(values
|
||||||
|
#'[id contract]
|
||||||
|
#'(defthing id contract . desc)
|
||||||
|
#'(scribble/manual)
|
||||||
|
#'id))])))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user