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

Better error messages for let, in certain cases

Browse Source
This commit is contained in:
William J. Bowman 2015-10-03 04:09:16 -04:00
parent b853d49b31
commit b050c4f192
No known key found for this signature in database
GPG Key ID: DDD48D26958F0D1A
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
stdlib/sugar.rkt
View File

@ -119,7 +119,15 @@
#:attr id #'x #:attr id #'x
#:attr expr #'e #:attr expr #'e
#:attr type (cond #:attr type (cond
[(attribute t) #'t] [(attribute t)
;; TODO: Code duplication in ::
(unless (type-check/syn? #'e #'t)
(raise-syntax-error
'let
(format "Term ~a does not have expected type ~a. Inferred type was ~a"
(cur->datum #'e) (cur->datum #'t) (cur->datum (type-infer/syn #'e)))
#'e (quasisyntax/loc #'x (x e))))
#'t]
[(type-infer/syn #'e)] [(type-infer/syn #'e)]
[else [else
(raise-syntax-error (raise-syntax-error
@ -137,6 +145,7 @@
(syntax-case syn () (syntax-case syn ()
[(_ pf t) [(_ pf t)
(begin (begin
;; TODO: Code duplication in let-clause pattern
(unless (type-check/syn? #'pf #'t) (unless (type-check/syn? #'pf #'t)
(raise-syntax-error (raise-syntax-error
':: '::