move distinct-by to cljs.util

Author: dnolen

src/main/clojure/cljs/closure.clj

@@ -34,7 +34,7 @@
    JavaScript or a deps file for use during development.
   "
   (:refer-clojure :exclude [compile])
-  (:require [cljs.util :as util]
+  (:require [cljs.util :as util :refer [distinct-by]]
             [cljs.core :as cljsm]
             [cljs.compiler :as comp]
             [cljs.analyzer :as ana]
@@ -896,19 +896,6 @@
           [(javascript-file nil url url ["constants-table"] ["cljs.core"] nil nil)]))
       inputs)))
 
-(defn distinct-by
-  ([k coll]
-   (let [step (fn step [xs seen]
-                (lazy-seq
-                  ((fn [[f :as xs] seen]
-                     (when-let [s (seq xs)]
-                       (let [v (get f k)]
-                         (if (contains? seen v)
-                          (recur (rest s) seen)
-                          (cons f (step (rest s) (conj seen v)))))))
-                    xs seen)))]
-     (step coll #{}))))
-
 (defn add-preloads
   "Add :preloads to a given set of inputs (IJavaScript). Returns a new
   list of inputs where the preloaded namespaces and their deps come immediately after

src/main/clojure/cljs/util.cljc

@@ -248,3 +248,16 @@
     [unknown (some-> (suggestion 3 (str unknown) (map str knowns))
                (subs 1)
                keyword)]))
+
+(defn distinct-by
+  ([f coll]
+   (let [step (fn step [xs seen]
+                (lazy-seq
+                  ((fn [[x :as xs] seen]
+                     (when-let [s (seq xs)]
+                       (let [v (f x)]
+                         (if (contains? seen v)
+                           (recur (rest s) seen)
+                           (cons x (step (rest s) (conj seen v)))))))
+                    xs seen)))]
+     (step coll #{}))))