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

Allow _ as else in cond

Browse Source
This commit is contained in:
Scott Richmond 2022-04-08 18:26:36 -04:00
parent 969bbc548f
commit fd832ac38e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ludus/parser.clj
View File

@ -576,11 +576,12 @@
(panic parser "Expected with after match expression")))) (panic parser "Expected with after match expression"))))
(defn- parse-cond-clause [parser] (defn- parse-cond-clause [parser]
(let [expr (if (= ::token/else (token-type parser)) (let [expr (if
(contains? #{::token/else ::token/placeholder} (token-type parser))
(-> parser (-> parser
(advance) (advance)
(assoc ::ast {::ast/type ::ast/atom (assoc ::ast {::ast/type ::ast/atom
:token ::token/else :token (current parser)
:value true})) :value true}))
(parse-expr parser)) (parse-expr parser))
rarrow (expect* #{::token/rarrow} "Expected arrow after expression in cond clause" expr)] rarrow (expect* #{::token/rarrow} "Expected arrow after expression in cond clause" expr)]
@ -789,9 +790,9 @@
(parser) (parser)
(parse-script))) (parse-script)))
(comment (do
(def pp pp/pprint) (def pp pp/pprint)
(def source "import \"f\" as foo (def source "cond { _ -> :foo }
") ")
(def lexed (scanner/scan source)) (def lexed (scanner/scan source))