kiss-lang/kiss-vscode
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Make NAT Lib.kiss more load-friendly

Browse Source
This commit is contained in:
Nat Quayle Nelson
2023-02-13 06:14:22 -07:00
parent 21e8b66088
commit 11f09f6987
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
projects/nat-archive-tool/src/nat/Lib.kiss
View File

@@ -91,13 +91,13 @@
(for =>cType cId e.components cType)) (for =>cType cId e.components cType))
(function tagsMatch [e tagsBoolExp] (function tagsMatch [e tagsBoolExp]
(BoolExpInterp.eval tagsBoolExp (tagList e))) (nat.BoolExpInterp.eval tagsBoolExp (tagList e)))
(function componentsMatch [:nat.Entry e componentsBoolExp] (function componentsMatch [:nat.Entry e componentsBoolExp]
(BoolExpInterp.eval componentsBoolExp (componentList e))) (nat.BoolExpInterp.eval componentsBoolExp (componentList e)))
(function componentsAndTagsMatch [:nat.Entry e componentsAndTagsBoolExp] (function componentsAndTagsMatch [:nat.Entry e componentsAndTagsBoolExp]
(BoolExpInterp.eval componentsAndTagsBoolExp (cast (concat (tagList e) (componentList e))))) (nat.BoolExpInterp.eval componentsAndTagsBoolExp (cast (concat (tagList e) (componentList e)))))
(defAlias &call catsMatch componentsAndTagsMatch) (defAlias &call catsMatch componentsAndTagsMatch)