diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-01-10 15:41:44 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-01-10 15:41:44 +0000 |
| commit | 7240a2a8612d0e4a0eed7ef100ef91f2c13787ad (patch) | |
| tree | c310bd35495570e89963e07f69a6d573393f3e26 /src/clojure/contrib/seq_utils.clj | |
| parent | 0fe49d170b0024a0e19312a741eb45e684251e75 (diff) | |
seq_utils.clj: BREAKING CHANGE: swap argument order of "includes?"
Diffstat (limited to 'src/clojure/contrib/seq_utils.clj')
| -rw-r--r-- | src/clojure/contrib/seq_utils.clj | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/src/clojure/contrib/seq_utils.clj b/src/clojure/contrib/seq_utils.clj index 12ca1fca..04479e4e 100644 --- a/src/clojure/contrib/seq_utils.clj +++ b/src/clojure/contrib/seq_utils.clj @@ -1,7 +1,7 @@ ;;; seq_utils.clj -- Sequence utilities for Clojure ;; by Stuart Sierra, http://stuartsierra.com/ -;; last updated January 05, 2009 +;; last updated January 10, 2009 ;; Copyright (c) Stuart Sierra, 2008. All rights reserved. The use ;; and distribution terms for this software are covered by the Eclipse @@ -12,6 +12,15 @@ ;; remove this notice, or any other, from this software. +;; Change Log +;; +;; January 10, 2009 (Stuart Sierra): +;; +;; * BREAKING CHANGE: "includes?" now takes collection as first +;; argument. This is more consistent with Clojure collection +;; functions; see discussion at http://groups.google.com/group/clojure/browse_thread/thread/8b2c8dc96b39ddd7/a8866d34b601ff43 + + (ns clojure.contrib.seq-utils) @@ -32,9 +41,10 @@ [(filter f s) (filter (complement f) s)]) (defn includes? - "Returns true if s contains something equal (with =) to x." - [x s] - (if (some (fn [y] (= y x)) s) + "Returns true if coll contains something equal (with =) to x, + in linear time." + [coll x] + (if (some (fn [y] (= y x)) coll) true false)) (defn indexed |