if set is constant make a static navigator for it

2016-08-06 02:23:11 -04:00 · 2016-08-06 02:23:11 -04:00 · c4f5a1b02b
commit c4f5a1b02b
parent 5e1f596e60
1 changed files with 4 additions and 2 deletions
--- a/src/clj/com/rpl/specter/impl.cljx
+++ b/src/clj/com/rpl/specter/impl.cljx
@ -960,8 +960,10 @@

      :else
      (cond (set? p)
-            (do (swap! params-atom conj p)
-                pred*)
+            (if (constant-node? p)
+              p
+              (do (swap! params-atom conj p)
+                pred*))

            (keyword? p)
            p