wizard
svn: r2880
This commit is contained in:
parent
d016a78166
commit
4748ea4490
|
@ -8,7 +8,7 @@
|
||||||
)
|
)
|
||||||
|
|
||||||
;; (define-as-contract string (id x ...) body ...)
|
;; (define-as-contract string (id x ...) body ...)
|
||||||
;; introduces Id for export as a contract and
|
;; introduces id for export as a contract and
|
||||||
;; is-id? for local testing as a function
|
;; is-id? for local testing as a function
|
||||||
(define-syntax (define-as-contract stx)
|
(define-syntax (define-as-contract stx)
|
||||||
(syntax-case stx ()
|
(syntax-case stx ()
|
||||||
|
|
Loading…
Reference in New Issue
Block a user