mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-11-26 20:15:14 +00:00
Code Issues 1 Releases Wiki Activity

For #293, correct wildcards in dictinoaries.

Browse Source
This commit is contained in:
Calvin Rose
2020-03-07 10:13:10 -06:00
parent 390c042027
commit d3b9b8d452
2 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/boot/boot.janet
View File

@@ -1368,9 +1368,11 @@
~(if (,dictionary? ,$dict)
,((fn aux []
(set key (next pattern key))
(def $val (gensym))
(if (= key nil)
(onmatch)
(match-1 [(in pattern key) [not= (in pattern key) nil]] [in $dict key] aux seen))))
~(do (def ,$val (,get ,$dict ,key))
,(match-1 [(in pattern key) [not= nil $val]] $val aux seen)))))
,sentinel)))
:else ~(if (= ,pattern ,expr) ,(onmatch) ,sentinel)))