From 2a3e4ed5684f7a2a190e8c734aa3d88768c2aa1e 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 --- src/nat/ArchiveController.kiss | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/nat/ArchiveController.kiss b/src/nat/ArchiveController.kiss index e3073bf..54fffc9 100644 --- a/src/nat/ArchiveController.kiss +++ b/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