From e15dd900bd8c35b847a727603cac6a99a90293cc Mon Sep 17 00:00:00 2001 From: Artem Medeusheyev Date: Fri, 10 Jun 2022 21:24:40 +0400 Subject: [PATCH] chore: add selector to system --- src/k16/gx/beta/system.clj | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/k16/gx/beta/system.clj b/src/k16/gx/beta/system.clj index b5676813..82d35be7 100644 --- a/src/k16/gx/beta/system.clj +++ b/src/k16/gx/beta/system.clj @@ -61,6 +61,9 @@ (get @registry* system-name)) (defn signal! - [system-name signal-key] - (when-let [gx-map (get @registry* system-name)] - (swap! registry* assoc system-name @(gx/signal gx-map signal-key)))) + ([system-name signal-key] + (signal! system-name signal-key #{})) + ([system-name signal-key priority-selector] + (when-let [gx-map (get @registry* system-name)] + (swap! registry* assoc system-name + @(gx/signal gx-map signal-key priority-selector)))))