simplify queue-hints!

This commit is contained in:
Gered 2016-05-27 23:07:07 -04:00
parent 343d12849e
commit 24646b1077

View file

@ -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