misc contract fix
This commit is contained in:
parent
3b80ae71f9
commit
81255d9a14
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user