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

Make type parsing error more informative

Browse Source
This commit is contained in:
Asumu Takikawa 2013-06-17 17:08:12 -04:00
parent 92e34ebab9
commit 1dede05549
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/private/parse-type.rkt
View File

@ -588,7 +588,8 @@
(values row-var fields methods)] (values row-var fields methods)]
[(? Mu?) [(? Mu?)
(match-parent-type (unfold parent-type))] (match-parent-type (unfold parent-type))]
[_ (tc-error "expected a class type for #:implements clause")])) [_ (tc-error "expected a class type for #:implements clause, got ~a"
parent-type)]))
(define-values (super-row-var super-fields super-methods) (define-values (super-row-var super-fields super-methods)
(match-parent-type parent-type)) (match-parent-type parent-type))