Used new #:context variant (list symbol stx) for the error messages for , as per samth's suggestion.

Simplified bad syntax error reporting for let (changes c8f02eb by samth)
2015-09-16 15:10:42 +02:00 · 2015-09-15 16:50:36 +02:00
1 changed files with 2 additions and 3 deletions
--- 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 (list (syntax-e form) 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)
Author	SHA1	Message	Date
Georges Dupéron	1e99d29be4	Used new #:context variant (list symbol stx) for the error messages for , as per samth's suggestion.	2015-09-16 15:10:42 +02:00
Georges Dupéron	525b04b74e	Simplified bad syntax error reporting for let (changes `c8f02eb` by samth)	2015-09-15 16:50:36 +02:00