fix named let: errors
closes PR 13806 Still to do: document the subtleties of ~and w/ error reporting. original commit: 504c7a89576f31aa25012cf4351cd3ff42c94895
This commit is contained in:
parent
c93a0b3921
commit
2f5d5f4129
|
@ -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 (:)
|
||||
|
|
Loading…
Reference in New Issue
Block a user