on dispatch-fn

(defn strategy-dispatch [strategy & _] strategy)

;; (mk-group-context strategy state nodes)
(defmulti mk-group-context #'strategy-dispatch
  :hierarchy #'strategy-hierarchy)

;; (sort-topologies strategy state topologies)
(defmulti sort-topologies #'strategy-dispatch
  :hierarchy #'strategy-hierarchy)