Reconstruct let bindings in the right order when unboxing let.
This commit is contained in:
parent
ee142047f8
commit
a0d55d4ab8
|
@ -148,9 +148,9 @@
|
||||||
(quasisyntax/loc/origin
|
(quasisyntax/loc/origin
|
||||||
this-syntax #'letk.kw
|
this-syntax #'letk.kw
|
||||||
(letk.key ...
|
(letk.key ...
|
||||||
(opt-candidates.bindings ... ...
|
(opt-functions.res ...
|
||||||
opt-functions.res ...
|
opt-others.res ...
|
||||||
opt-others.res ...)
|
opt-candidates.bindings ... ...)
|
||||||
#,@(syntax-map (optimize) #'(body ...)))))))
|
#,@(syntax-map (optimize) #'(body ...)))))))
|
||||||
|
|
||||||
(define-splicing-syntax-class let-like-keyword
|
(define-splicing-syntax-class let-like-keyword
|
||||||
|
|
Loading…
Reference in New Issue
Block a user