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
sigelem)
(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)
`(abs ,(make-generated-tag)))