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

fix nil pattern matching

Browse Source
This commit is contained in:
Scott Richmond 2024-06-21 11:37:23 -04:00
parent 705be69661
commit e05043e375
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/interpreter.janet
View File

@ -183,7 +183,7 @@
:word (match-word pattern value ctx) :word (match-word pattern value ctx)
# match on equality # match on equality
:nil {:success (nil? value) :ctx ctx} :nil {:success (= :^nil value) :ctx ctx}
:bool {:success (= data value) :ctx ctx} :bool {:success (= data value) :ctx ctx}
:number {:success (= data value) :ctx ctx} :number {:success (= data value) :ctx ctx}
:string {:success (= data value) :ctx ctx} :string {:success (= data value) :ctx ctx}

3
src/ludus.janet
View File

@ -52,8 +52,7 @@
(comment (comment
# (do # (do
(def source ` (def source `
fn id (x) -> x contains? (:d, [:a, :b])
map (id, [])
`) `)
(def out (-> source (def out (-> source
ludus ludus