change module-path? for planet path shorthand; doc edits
svn: r9048 original commit: 34d83b3551253b3ea7a0268bbd0a76b59fb9d949
This commit is contained in:
parent
913e284792
commit
4f98165217
|
@ -567,7 +567,7 @@
|
||||||
defidform
|
defidform
|
||||||
specform specform/subs
|
specform specform/subs
|
||||||
specsubform specsubform/subs specspecsubform specspecsubform/subs specsubform/inline
|
specsubform specsubform/subs specspecsubform specspecsubform/subs specsubform/inline
|
||||||
defsubform
|
defsubform defsubform*
|
||||||
schemegrammar schemegrammar*
|
schemegrammar schemegrammar*
|
||||||
var svar void-const undefined-const)
|
var svar void-const undefined-const)
|
||||||
|
|
||||||
|
@ -834,6 +834,9 @@
|
||||||
(define-syntax (defsubform stx)
|
(define-syntax (defsubform stx)
|
||||||
(syntax-case stx ()
|
(syntax-case stx ()
|
||||||
[(_ . rest) #'(into-blockquote (defform . rest))]))
|
[(_ . rest) #'(into-blockquote (defform . rest))]))
|
||||||
|
(define-syntax (defsubform* stx)
|
||||||
|
(syntax-case stx ()
|
||||||
|
[(_ . rest) #'(into-blockquote (defform* . rest))]))
|
||||||
(define-syntax specsubform
|
(define-syntax specsubform
|
||||||
(syntax-rules ()
|
(syntax-rules ()
|
||||||
[(_ #:literals (lit ...) spec desc ...)
|
[(_ #:literals (lit ...) spec desc ...)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user