From 74a7a41cae110cfbd30ae9e0e39083dbb0a2c06b Mon Sep 17 00:00:00 2001 From: Nat Quayle Nelson Date: Thu, 8 Sep 2022 20:39:46 +0000 Subject: [PATCH] fix return value of playground commands --- projects/nat-archive-tool/src/nat/ArchiveController.kiss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/projects/nat-archive-tool/src/nat/ArchiveController.kiss b/projects/nat-archive-tool/src/nat/ArchiveController.kiss index e3073bf7..54fffc9c 100644 --- a/projects/nat-archive-tool/src/nat/ArchiveController.kiss +++ b/projects/nat-archive-tool/src/nat/ArchiveController.kiss @@ -336,11 +336,13 @@ (defCommand CreatePlayground [name (Text null) catsMatchExp (Text null)] (archive.changePlaygrounds ->:Void [:DynamicAccess p] - (dictSet p name (object catsMatch catsMatchExp)))) + (dictSet p name (object catsMatch catsMatchExp))) + []) (defCommand SwitchPlayground [name (Text null)] (archive.changePlaygrounds ->:Void [:DynamicAccess 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)] (for e entries