units chapter in reference
svn: r6976 original commit: 08c04d2579c36bca447011c4b6b898cfcacaa7f1
This commit is contained in:
parent
ac0e0259fd
commit
f0fd3e6b6b
|
@ -303,6 +303,7 @@
|
|||
[(_ [spec ...] desc ...) #'(defform*/subs [spec ...] () desc ...)]))
|
||||
(define-syntax (defform stx)
|
||||
(syntax-case stx ()
|
||||
[(_ #:literals (lit ...) spec desc ...) #'(defform*/subs #:literals (lit ...) [spec] () desc ...)]
|
||||
[(_ spec desc ...) #'(defform*/subs [spec] () desc ...)]))
|
||||
(define-syntax (defform/subs stx)
|
||||
(syntax-case stx ()
|
||||
|
|
Loading…
Reference in New Issue
Block a user