diff options
| author | Jason Wolfe <jason@w01fe.com> | 2010-09-21 11:56:13 -0700 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-10-12 19:47:07 -0400 |
| commit | 5ca0c1feb7f7260aad257e52f2ddb0d426e2db77 (patch) | |
| tree | 518b40f3fec0c804e8d6acc3ab61f3fc56277dfb /src | |
| parent | 351e05a242740cc415524d03e1d424de516eed75 (diff) | |
Fix clojure.set/subset? and superset? bugs with false/nil elements
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/set.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clj/clojure/set.clj b/src/clj/clojure/set.clj index af0f65f6..69233ad1 100644 --- a/src/clj/clojure/set.clj +++ b/src/clj/clojure/set.clj @@ -145,7 +145,7 @@ :tag Boolean} [set1 set2] (and (<= (count set1) (count set2)) - (every? set2 set1))) + (every? #(contains? set2 %) set1))) (defn superset? "Is set1 a superset of set2?" @@ -153,7 +153,7 @@ :tag Boolean} [set1 set2] (and (>= (count set1) (count set2)) - (every? set1 set2))) + (every? #(contains? set1 %) set2))) (comment (refer 'set) |