splitting out form for refactoring.

src/cljc/auto_ap/utils.cljc

@@ -24,13 +24,12 @@
                   (fn [t]
                     (if (= (f t) (f x))
                       (do (reset! found? true)
-                          (println "found" (f t) t (f x) x)
-                        x)
+                          x)
                       t))
                   xs)]
     (if @found?
       replaced
-      (conj replaced x))))
+      (into [x] replaced))))
 
 (defn dollars-0? [amt]
   (< -0.001 amt  0.001))