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

Improve error message for (let).

Browse Source 
Closes #193.
This commit is contained in:
Sam Tobin-Hochstadt 2015-09-07 17:29:26 -04:00
parent a25a07987e
commit c8f02eb93f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
typed-racket-lib/typed-racket/base-env/prims.rkt
View File

@ -203,9 +203,10 @@ the typed racket language.
(let ([mk (lambda (form)
(lambda (stx)
(syntax-parse stx
#:context form
[(_ (bs:optionally-annotated-binding ...) . body)
(quasisyntax/loc stx (#,form (bs.binding ...) . body))])))])
(quasisyntax/loc stx (#,form (bs.binding ...) . body))]
[(_) (raise-syntax-error (syntax-e form) "bad syntax: expected more forms"
(datum->syntax stx `(,form) stx stx))])))])
(values (mk #'let) (mk #'let*) (mk #'letrec))))
(define-syntaxes (-let-values -let*-values -letrec-values)