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

Simplified bad syntax error reporting for let (changes c8f02eb by samth)

Browse Source
This commit is contained in:
Georges Dupéron 2015-09-15 16:50:36 +02:00 committed by Sam Tobin-Hochstadt
parent eb93a2b571
commit 09d60e003b
1 changed files with 2 additions and 3 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,10 +203,9 @@ the typed racket language.
(let ([mk (lambda (form)
(lambda (stx)
(syntax-parse stx
#:context (datum->syntax stx `(,form) stx stx)
[(_ (bs:optionally-annotated-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))])))])
(quasisyntax/loc stx (#,form (bs.binding ...) . body))])))])
(values (mk #'let) (mk #'let*) (mk #'letrec))))
(define-syntaxes (-let-values -let*-values -letrec-values)