Skip to content

Commit

Permalink
removed deprecated subset?, superset? from clojure.contrib.set
Browse files Browse the repository at this point in the history
Both functions have been promoted to clojure.set.

Signed-off-by: Stuart Sierra <mail@stuartsierra.com>
  • Loading branch information
bpsm authored and Stuart Sierra committed Sep 3, 2010
1 parent 95353ce commit 0f94c13
Show file tree
Hide file tree
Showing 5 changed files with 3 additions and 26 deletions.
5 changes: 0 additions & 5 deletions modules/datalog/pom.xml
Expand Up @@ -27,11 +27,6 @@
<artifactId>def</artifactId>
<version>1.3.0-SNAPSHOT</version>
</dependency>
<dependency>
<groupId>org.clojure.contrib</groupId>
<artifactId>set</artifactId>
<version>1.3.0-SNAPSHOT</version>
</dependency>
<dependency>
<groupId>org.clojure.contrib</groupId>
<artifactId>graph</artifactId>
Expand Down
Expand Up @@ -17,8 +17,7 @@
(ns clojure.contrib.datalog.literals
(:use clojure.contrib.datalog.util)
(:use clojure.contrib.datalog.database)
(:use [clojure.set :only (intersection)])
(:use [clojure.contrib.set :only (subset?)]))
(:use [clojure.set :only (intersection subset?)]))


;;; Type Definitions
Expand Down
Expand Up @@ -18,8 +18,7 @@
(:use clojure.contrib.datalog.util)
(:use clojure.contrib.datalog.literals
clojure.contrib.datalog.database)
(:use [clojure.set :only (union intersection difference)])
(:use [clojure.contrib.set :only (subset?)])
(:use [clojure.set :only (union intersection difference subset?)])
(:use [clojure.contrib.except :only (throwf)])
(:import java.io.Writer))

Expand Down
Expand Up @@ -19,7 +19,7 @@
clojure.contrib.datalog.magic
clojure.contrib.datalog.rules
clojure.contrib.datalog.database)
(:use [clojure.contrib.set :only (subset?)]))
(:use [clojure.set :only (subset?)]))



Expand Down
16 changes: 0 additions & 16 deletions modules/set/src/main/clojure/clojure/contrib/set.clj
Expand Up @@ -21,22 +21,6 @@
:doc "Clojure functions for operating on sets (supplemental to clojure.set)"}
clojure.contrib.set)

(defn subset?
"Is set1 a subset of set2?"
{:deprecated "1.2"}
[set1 set2]
{:tag Boolean}
(and (<= (count set1) (count set2))
(every? set2 set1)))

(defn superset?
"Is set1 a superset of set2?"
{:deprecated "1.2"}
[set1 set2]
{:tag Boolean}
(and (>= (count set1) (count set2))
(every? set1 set2)))

(defn proper-subset?
"Is s1 a proper subset of s2?"
[set1 set2]
Expand Down

0 comments on commit 0f94c13

Please sign in to comment.