From 2f5d5f412960a58ec8025eb60010494cbe0efe21 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Fri, 11 Oct 2013 11:30:48 -0400 Subject: [PATCH] fix named let: errors closes PR 13806 Still to do: document the subtleties of ~and w/ error reporting. original commit: 504c7a89576f31aa25012cf4351cd3ff42c94895 --- .../typed-racket-lib/typed-racket/base-env/prims.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/prims.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/prims.rkt index e85c993c..dca2627b 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/prims.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/base-env/prims.rkt @@ -460,9 +460,9 @@ This file defines two sorts of primitives. All of them are provided into any mod (define-syntax (let: stx) (syntax-parse stx #:literals (:) [(let: nm:id ~! ; named let: - (~and (~seq rest ...) - (~seq (~optional (~seq : ret-ty)) - (bs:optionally-annotated-binding ...) body ...))) + (~and (~seq (~optional (~seq : ret-ty)) + (bs:optionally-annotated-binding ...) body ...) + (~seq rest ...))) (quasisyntax/loc stx (#,(syntax-parse #'(rest ...) #:literals (:)