chore: add selector to system

kepler16 · Jun 10, 2022 · e15dd90 · e15dd90 · vercel · Jun 10, 2022
1 parent 33e76e6
commit e15dd90
Showing 1 changed file with 6 additions and 3 deletions.
diff --git 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)))))