Fix use of expected type of ignore expressions.

2014-03-21 23:45:08 -07:00 · 2014-03-21 23:45:08 -07:00 · ca082c2176
commit ca082c2176
parent 8de32baf28
1 changed files with 1 additions and 1 deletions
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-expr-unit.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/tc-expr-unit.rkt
@ -244,7 +244,7 @@
       (register-ignored! form)
       (check-subforms/ignore form)
       ;; We trust ignore to be only on syntax objects objects that are well typed
-       expected]
+       (ret -Bottom)]
      ;; explicit failure
      [t:typecheck-failure
       (explicit-fail #'t.stx #'t.message #'t.var)]