diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2010-10-12 19:56:39 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-10-12 19:56:39 -0400 |
| commit | 2ed7cf32a8d4cda700e5bdc04793956580465f67 (patch) | |
| tree | 0119d8ed7a25b42e9778e9bd6fb639d4107e7e59 | |
| parent | 3c148e2ee7f244fccd246365010055dcc946abe0 (diff) | |
:added metadata for diff
| -rw-r--r-- | src/clj/clojure/data.clj | 9 | ||||
| -rw-r--r-- | test/clojure/test_clojure/metadata.clj | 3 |
2 files changed, 7 insertions, 5 deletions
diff --git a/src/clj/clojure/data.clj b/src/clj/clojure/data.clj index fc962049..f5730016 100644 --- a/src/clj/clojure/data.clj +++ b/src/clj/clojure/data.clj @@ -30,13 +30,13 @@ (declare diff) -(defprotocol EqualityPartition +(defprotocol ^{:added "1.3"} EqualityPartition "Implementation detail. Subject to change." - (equality-partition [x] "Implementation detail. Subject to change.")) + (^{:added "1.3"} equality-partition [x] "Implementation detail. Subject to change.")) -(defprotocol Diff +(defprotocol ^{:added "1.3"} Diff "Implementation detail. Subject to change." - (diff-similar [a b] "Implementation detail. Subject to change.")) + (^{:added "1.3"} diff-similar [a b] "Implementation detail. Subject to change.")) (extend nil Diff @@ -101,6 +101,7 @@ by their indexes, with results returned as vectors. * Everything else (including strings!) is treated as an atom and compared for equality." + {:added "1.3"} [a b] (if (= (equality-partition a) (equality-partition b)) (diff-similar a b) diff --git a/test/clojure/test_clojure/metadata.clj b/test/clojure/test_clojure/metadata.clj index 23523c29..e19ef823 100644 --- a/test/clojure/test_clojure/metadata.clj +++ b/test/clojure/test_clojure/metadata.clj @@ -26,7 +26,8 @@ clojure.java.browse clojure.java.javadoc clojure.java.shell - clojure.string]) + clojure.string + clojure.data]) (doseq [ns public-namespaces] (require ns)) |