coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

js-on-sx: tolerate destructuring params in fn decls/exprs (skipped as holes)

Browse Source
This commit is contained in:
giles
2026-04-23 23:27:29 +00:00
parent 0a3425ba18
commit 27bd25843e
1 changed files with 22 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
lib/js/parser.sx
View File

@@ -760,6 +760,28 @@
(do (do
(jp-advance! st) (jp-advance! st)
(append! params (list (quote js-rest) nm)))))) (append! params (list (quote js-rest) nm))))))
((jp-at? st "punct" "{")
(begin
(jp-skip-balanced st "{" "}")
(append! params "__destruct_param__")
(when
(jp-at? st "op" "=")
(begin (jp-advance! st) (jp-parse-assignment st)))
(cond
((jp-at? st "punct" ",")
(begin (jp-advance! st) (jp-parse-param-list-loop st params)))
(else nil))))
((jp-at? st "punct" "[")
(begin
(jp-skip-balanced st "[" "]")
(append! params "__destruct_param__")
(when
(jp-at? st "op" "=")
(begin (jp-advance! st) (jp-parse-assignment st)))
(cond
((jp-at? st "punct" ",")
(begin (jp-advance! st) (jp-parse-param-list-loop st params)))
(else nil))))
((= (get (jp-peek st) :type) "ident") ((= (get (jp-peek st) :type) "ident")
(do (do
(let (let