From 24646b1077830241f207014b706c8202cde5006c Mon Sep 17 00:00:00 2001
From: gered <gered@blarg.ca>
Date: Fri, 27 May 2016 23:07:07 -0400
Subject: [PATCH] simplify queue-hints!

---
 src/views/core.clj | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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