From c8f02eb93f34382c78051186fa8011d9cffba433 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 7 Sep 2015 17:29:26 -0400 Subject: [PATCH] Improve error message for `(let)`. Closes #193. --- typed-racket-lib/typed-racket/base-env/prims.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/typed-racket-lib/typed-racket/base-env/prims.rkt b/typed-racket-lib/typed-racket/base-env/prims.rkt index 08beffc6..5cca4df5 100644 --- a/typed-racket-lib/typed-racket/base-env/prims.rkt +++ b/typed-racket-lib/typed-racket/base-env/prims.rkt @@ -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)