diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/infer/infer-unit.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/infer/infer-unit.rkt index 446a41b8..3a9694f0 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/infer/infer-unit.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/infer/infer-unit.rkt @@ -360,7 +360,7 @@ (Type/c Type/c . -> . (or/c #f cset?)) (cgen V X Y S T)) (define/cond-contract (cg/inv S T) - (Type/c Type/c . -> . cset?) + (Type/c Type/c . -> . (or/c #f cset?)) (cgen/inv V X Y S T)) ;; this places no constraints on any variables in X (define empty (empty-cset X Y))