diff --git a/common/app/common/data.cljc b/common/app/common/data.cljc index bc3d14dbac..26722cf758 100644 --- a/common/app/common/data.cljc +++ b/common/app/common/data.cljc @@ -42,7 +42,6 @@ ([a b & rest] (reduce deep-merge a (cons b rest)))) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Data Structures Manipulation ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -70,14 +69,14 @@ (defn enumerate ([items] (enumerate items 0)) ([items start] - (loop [idx start + (loop [idx start items items - res []] + res (transient [])] (if (empty? items) - res + (persistent! res) (recur (inc idx) (rest items) - (conj res [idx (first items)])))))) + (conj! res [idx (first items)])))))) (defn seek ([pred coll]