From 09d60e003b9f8d1f88115bf6c35529cdffa0eb09 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= Date: Tue, 15 Sep 2015 16:50:36 +0200 Subject: [PATCH] Simplified bad syntax error reporting for let (changes c8f02eb by samth) --- typed-racket-lib/typed-racket/base-env/prims.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/typed-racket-lib/typed-racket/base-env/prims.rkt b/typed-racket-lib/typed-racket/base-env/prims.rkt index 5cca4df5..5c32096d 100644 --- a/typed-racket-lib/typed-racket/base-env/prims.rkt +++ b/typed-racket-lib/typed-racket/base-env/prims.rkt @@ -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)