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

Improve several type error messages

Browse Source 
In particular, improve the syntax reported when the
method arity is wrong.
This commit is contained in:
Asumu Takikawa 2013-07-09 17:47:34 -04:00
parent 0d498e18e7
commit 6cdc5fb720
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/check-class-unit.rkt
View File

@ -186,7 +186,7 @@
super-methods super-augments))
(values super-inits super-fields super-methods super-augments)]
[(tc-result1: t)
(tc-error/expr "expected a superclass but got ~a" t
(tc-error/expr "expected a superclass but got value of type ~a" t
#:stx #'cls.superclass-expr)
;; FIXME: is this the right thing to do?
(values null null null null)]))
@ -994,8 +994,11 @@
(define annotated-self-param
(type-ascription-property #'self-param self-type))
#`(let-values ([(#,(syntax-property #'meth-name 'type-label method-type))
(#%plain-lambda (#,annotated-self-param id ...)
body ...)])
;; attach source location to the lambda in order to
;; obtain better error messages for arity errors
#,(quasisyntax/loc stx
(#%plain-lambda (#,annotated-self-param id ...)
body ...))])
m)]
[(let-values ([(meth-name:id)
(let-values (((core:id)
@ -1005,9 +1008,11 @@
m)
#`(let-values ([(#,(syntax-property #'meth-name 'type-label method-type))
#,(syntax-property
#'(let-values (((core)
(#%plain-lambda (param ...)
core-body ...)))
#`(let-values (((core)
;; see comment above
#,(quasisyntax/loc stx
(#%plain-lambda (param ...)
core-body ...))))
method-body ...)
'kw-lambda #t)])
m)]