misc contract fix

This commit is contained in:
Andrew Kent 2017-01-07 12:44:48 -05:00
parent 3b80ae71f9
commit 81255d9a14

View File

@ -22,7 +22,9 @@
with-lexical-env
with-extended-lexical-env)
(provide/cond-contract
[lookup-type/lexical ((identifier?) (env? #:fail (or/c #f (-> any/c #f))) . ->* . (or/c Type? #f))]
[lookup-type/lexical ((identifier?) (env? #:fail (or/c #f Type? (-> any/c (or/c Type? #f))))
. ->* .
(or/c Type? #f))]
[lookup-alias/lexical ((identifier?) (env?) . ->* . (or/c Path? Empty?))])
;; the current lexical environment