Skip to content

Commit 18dd1bc

Browse files
committed
History for 8.6
1 parent dbe5a6b commit 18dd1bc

File tree

2 files changed

+5
-2
lines changed

2 files changed

+5
-2
lines changed

typed-racket-lib/typed-racket/HISTORY.txt

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,3 +1,5 @@
1+
8.6
2+
- Bug fixes and type updates.
13
8.5
24
- Add `typed/xml` and related library wrappers.
35
8.4

typed-racket-lib/typed-racket/typecheck/tc-app/tc-app-lambda.rkt

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -10,6 +10,7 @@
1010
"../find-annotation.rkt"
1111
"../tc-metafunctions.rkt"
1212
"../../types/abbrev.rkt"
13+
"../../types/resolve.rkt"
1314
"../../types/utils.rkt"
1415
"../../types/generalize.rkt"
1516
"../../types/type-table.rkt"
@@ -108,8 +109,8 @@
108109
(generalize (tc-expr/t ac)))))]
109110
[acc-ty (or
110111
(type-annotation #'val #:infer #t)
111-
(match expected
112-
[(tc-result1: (and t (Listof: _))) t]
112+
(match (resolve expected)
113+
[(tc-result1: (app resolve (and t (Listof: _)))) t]
113114
[_ #f])
114115
(generalize -Null))])
115116
;; this check is needed because the type annotation may come

0 commit comments

Comments
 (0)