more standardization

src/cljc/auto_ap/utils.cljc

@@ -31,6 +31,15 @@
       replaced
       (into [x] replaced))))
 
+
+(defn remove-by [xs f x]
+  (into []
+        (filter
+         (fn [t]
+           (if (= (f t) (f x))
+             false
+             true))
+         xs)))
 (defn merge-by [xs f x]
   (let [found? (atom false)
         replaced (mapv