Use some as requested

Author: plexus

src/refactor_nrepl/ns/clean_ns.clj

@@ -36,13 +36,10 @@
   (assert-no-exclude-clause (core/get-ns-component ns-form :use))
   ns-form)
 
-(defn- seek
-  "Find the first element in coll that satisfies pred?"
-  [pred? coll]
-  (reduce (fn [_ x] (when (pred? x) (reduced x))) nil coll))
-
 (defn clean-ns [{:keys [path relative-path]}]
-  (let [path (seek #(and % (.exists (io/file %)))
+  (let [path (some (fn [p]
+                     (when (and p (.exists (io/file p)))
+                       p))
                    [path relative-path])]
     (assert (core/source-file? path))
     ;; Prefix notation not supported in cljs.