removed seq-contains?

src/clj/clojure/core.clj

@@ -1017,8 +1017,7 @@
   returns false.  Note that for numerically indexed collections like
   vectors and Java arrays, this tests if the numeric key is within the
   range of indexes. 'contains?' operates constant or logarithmic time;
-  it will not perform a linear search for a value.  See also
-  'seq-contains?' and 'some'."
+  it will not perform a linear search for a value.  See also 'some'."
   [coll key] (. clojure.lang.RT (contains coll key)))
 
 (defn get
@@ -5115,14 +5114,6 @@
   [coll]
   (nth coll (rand-int (count coll))))
 
-(defn seq-contains?
-  "Returns true if sequential search of coll contains something equal (with =) to x,
-  in linear time."
-  {:added "1.2"}
-  [coll x]
-  (if (some (fn [y] (= y x)) coll)
-    true false))
-
 (defn partition-all
   "Returns a lazy sequence of lists like partition, but may include
   partitions with fewer than n items at the end."

test/clojure/test_clojure/sequences.clj

@@ -1147,10 +1147,6 @@
   (let [elt (rand-nth [:a :b :c :d])]
     (is (#{:a :b :c :d} elt))))
 
-(deftest test-seq-contains?
-  (is (seq-contains? [1 2 3 4 5] 5))
-  (is (not (seq-contains? [1 2 3 4 5] 6))))
-
 (deftest test-partition-all
   (is (= (partition-all 4 [1 2 3 4 5 6 7 8 9])
 	 [[1 2 3 4] [5 6 7 8] [9]]))