Always populate type table, regardless of optimizer status.

Closes #343.
This commit is contained in:
Vincent St-Amour 2016-04-11 14:26:49 -05:00
parent a906b1c172
commit b352739131
2 changed files with 10 additions and 2 deletions

View File

@ -69,8 +69,7 @@
old)
(tooltip (cons e seen) t)))
(tooltip (list e) t)))
(when (optimize?)
(hash-update! type-table e (combine t) t)))
(hash-update! type-table e (combine t) t))
;; when typechecking a case-> type, types get added for
;; the same subexpression multiple times, combine them

View File

@ -0,0 +1,9 @@
#lang typed/racket/base #:no-optimize
(require typed/racket/class)
(define c%
(class object%
(init-field val)
(super-new)))
(instantiate c% (3))