[03/10] storm git commit: use boolean to replace some?, backtype.storm.util is compatible with clojure 1.6

[bo...@apache.org]

use boolean to replace some?, backtype.storm.util is compatible with clojure 1.6


Project: http://git-wip-us.apache.org/repos/asf/storm/repo
Commit: http://git-wip-us.apache.org/repos/asf/storm/commit/6ede0787
Tree: http://git-wip-us.apache.org/repos/asf/storm/tree/6ede0787
Diff: http://git-wip-us.apache.org/repos/asf/storm/diff/6ede0787

Branch: refs/heads/master
Commit: 6ede0787ea7401ff98f6c4bb2adf5df9153a1b7a
Parents: c0e51a2
Author: joe <ta...@gmail.com>
Authored: Tue Oct 7 08:49:42 2014 +0800
Committer: joe <ta...@gmail.com>
Committed: Tue Oct 7 08:49:42 2014 +0800

----------------------------------------------------------------------
 storm-core/src/clj/backtype/storm/util.clj | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)
----------------------------------------------------------------------


http://git-wip-us.apache.org/repos/asf/storm/blob/6ede0787/storm-core/src/clj/backtype/storm/util.clj
----------------------------------------------------------------------
diff --git a/storm-core/src/clj/backtype/storm/util.clj b/storm-core/src/clj/backtype/storm/util.clj
index 398584f..f555ee8 100644
--- a/storm-core/src/clj/backtype/storm/util.clj
+++ b/storm-core/src/clj/backtype/storm/util.clj
@@ -566,10 +566,6 @@
   (while (not (apredicate))
     (Time/sleep 100)))
 
-(defn some?
-  [pred aseq]
-  ((complement nil?) (some pred aseq)))
-
 (defn time-delta
   [time-secs]
   (- (current-time-secs) time-secs))
@@ -803,7 +799,7 @@
 (defn zip-contains-dir?
   [zipfile target]
   (let [entries (->> zipfile (ZipFile.) .entries enumeration-seq (map (memfn getName)))]
-    (some? #(.startsWith % (str target "/")) entries)))
+    (boolean (some #(.startsWith % (str target "/")) entries))))
 
 (defn url-encode
   [s]