Have type ascriptions record the ascribed type in the type table.
original commit: eb7fc7a9655f26f35220295c24086da3699c3187
This commit is contained in:
parent
10d5e7851e
commit
f578a22046
|
@ -183,7 +183,7 @@
|
|||
(let* ([r (tc-expr/check/internal form* ann)]
|
||||
[r* (check-below r expected)])
|
||||
;; add this to the *original* form, since the newer forms aren't really in the program
|
||||
(add-typeof-expr form expected)
|
||||
(add-typeof-expr form ann)
|
||||
;; around again in case there is an instantiation
|
||||
;; remove the ascription so we don't loop infinitely
|
||||
(loop (remove-ascription form*) r* #t)))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user