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

fix return value of playground commands

Browse Source
This commit is contained in:
Nat Quayle Nelson
2022-09-08 20:39:46 +00:00
parent f16f2a0ddd
commit 74a7a41cae
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -336,11 +336,13 @@
(defCommand CreatePlayground [name (Text null) catsMatchExp (Text null)] (defCommand CreatePlayground [name (Text null) catsMatchExp (Text null)]
(archive.changePlaygrounds ->:Void [:DynamicAccess<Dynamic> p] (archive.changePlaygrounds ->:Void [:DynamicAccess<Dynamic> p]
(dictSet p name (object catsMatch catsMatchExp)))) (dictSet p name (object catsMatch catsMatchExp)))
[])
(defCommand SwitchPlayground [name (Text null)] (defCommand SwitchPlayground [name (Text null)]
(archive.changePlaygrounds ->:Void [:DynamicAccess<Dynamic> p] (dictSet p "default" name)) (archive.changePlaygrounds ->:Void [:DynamicAccess<Dynamic> p] (dictSet p "default" name))
(when playgroundSystem (playgroundSystem.switchPlaygroundKey name))) (when playgroundSystem (playgroundSystem.switchPlaygroundKey name))
[])
(defCommand AddConnections [entries (SelectedEntries 1 null) entriesToConnect (Entries 1 null)] (defCommand AddConnections [entries (SelectedEntries 1 null) entriesToConnect (Entries 1 null)]
(for e entries (for e entries