twc/ludus
4
0
Fork 0
Code Issues 28 Pull Requests Packages Projects 8 Releases Wiki Activity

::ast/splatted -> ::ast/splat (standardize)

Browse Source
This commit is contained in:
Scott Richmond 2022-06-19 16:21:12 -04:00
parent e30a8b973b
commit a56a4b565a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ludus/parser.clj
View File

@ -571,7 +571,7 @@
current_member
(panic parser "Unexpected splat after keyword in dict pattern.")
(::ast/splatted members)
(::ast/splat members)
(panic parser "Dict patterns may only have one splat.")
(not= ::token/word (::token/type (current (advance parser))))
@ -579,7 +579,7 @@
:else
(let [splatted (parse-word (advance parser))]
(recur splatted members {::ast/splatted (::ast splatted)})))
(recur splatted members {::ast/splat (::ast splatted)})))
::token/word
(if (not current_member)
@ -623,7 +623,7 @@
current_member
(panic parser "Unexpected splat after keyword in struct pattern.")
(::ast/splatted members)
(::ast/splat members)
(panic parser "Struct patterns may only have one splat.")
(not= ::token/word (::token/type (current (advance parser))))
@ -631,7 +631,7 @@
:else
(let [splatted (parse-word (advance parser))]
(recur splatted members {::ast/splatted (::ast splatted)})))
(recur splatted members {::ast/splat (::ast splatted)})))
::token/word
(if (not current_member)
@ -1142,7 +1142,7 @@
(parser)
(parse-script)))
(do
(comment
(def pp pp/pprint)
(def source "let @{a, ...foo, :c d} = :foo")