diff --git a/src/views/core.clj b/src/views/core.clj index 7a87698..773e2cf 100644 --- a/src/views/core.clj +++ b/src/views/core.clj @@ -387,9 +387,7 @@ for the relevant views/subscribers." [hints] (trace "queueing hints" hints) - (swap! view-system update-in [:hints] - (fn [existing-hints] - (reduce conj (or existing-hints #{}) hints)))) + (swap! view-system update-in [:hints] (fnil into #{}) hints)) (defn put-hints! "Adds a collection of hints to the view system by using the view system