suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix error reporting regression.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-07-01 13:46:16 -04:00
parent 4f3e3625b3
commit 829689eb9d
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/typed-scheme/private/parse-type.rkt
View File

@ -253,9 +253,8 @@
;; use expr to rule out keywords ;; use expr to rule out keywords
[(dom:expr ... kws:keyword-tys ... (~and kw t:->) rng) [(dom:expr ... kws:keyword-tys ... (~and kw t:->) rng)
(add-type-name-reference #'kw) (add-type-name-reference #'kw)
(let ([doms (for/list ([d (syntax->list #'(dom ...))]) (let ([doms (for/list ([d (syntax->list #'(dom ...))])
(let ([dt (parse-type d)]) (parse-type d))])
(if (type-equal? dt Err) Univ dt)))])
(make-Function (make-Function
(list (make-arr (list (make-arr
doms doms