svn: r2880
This commit is contained in:
Matthias Felleisen 2006-05-09 15:59:00 +00:00
parent d016a78166
commit 4748ea4490

View File

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