checks can sometimes return #t

This commit is contained in:
Sam Tobin-Hochstadt 2010-05-04 17:56:46 -04:00
parent 27a8ac62f6
commit d7d157b441

View File

@ -5,8 +5,8 @@
(define-type check-ish-ty
(case-lambda
(Any Any -> Void)
(Any Any String -> Void)))
(Any Any -> (U #t Void))
(Any Any String -> (U #t Void))))
(define-type (Predicate A) (A -> Boolean))
(define-type (Thunk A) (-> A))