Fixing a problem with the contracts I committed

svn: r15798
This commit is contained in:
Jay McCarthy 2009-08-25 17:21:32 +00:00
parent 78ad4f9615
commit ea84b8d182

View File

@ -33,7 +33,8 @@
make-binding-redirect-elements make-binding-redirect-elements
sigelem) sigelem)
(provide/contract (provide/contract
[defidentifier ((identifier?) (#:form? boolean? #:index? boolean? #:show-libs? boolean?) . ->* . element?)]) ; XXX What is return type?
[defidentifier ((identifier?) (#:form? boolean? #:index? boolean? #:show-libs? boolean?) . ->* . any/c)])
(define (gen-absolute-tag) (define (gen-absolute-tag)
`(abs ,(make-generated-tag))) `(abs ,(make-generated-tag)))