fix obvious bug pointed out by noel
svn: r18351 original commit: 013b12b19d56e051fddd6bd09d6c07115088b14e
This commit is contained in:
parent
56732a6d6e
commit
0ad41fd737
|
@ -57,9 +57,9 @@
|
|||
r))]
|
||||
;; special case if one of the branches is unreachable
|
||||
[(and (= 1 (length us)) (type-equal? (car us) (Un)))
|
||||
(if expected (check-below (ret ts fs2 os2)) (ret ts fs2 os2))]
|
||||
(if expected (check-below (ret ts fs2 os2) expected) (ret ts fs2 os2))]
|
||||
[(and (= 1 (length ts)) (type-equal? (car ts) (Un)))
|
||||
(if expected (check-below (ret us fs3 os3)) (ret us fs3 os3))]
|
||||
(if expected (check-below (ret us fs3 os3) expected) (ret us fs3 os3))]
|
||||
;; otherwise, error
|
||||
[else
|
||||
(tc-error/expr #:return (ret (or expected Err))
|
||||
|
|
Loading…
Reference in New Issue
Block a user