Fix some silly implementation details

flatland · Apr 10, 2013 · c0552dc · c0552dc
1 parent 968d90f
commit c0552dc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/flatland/ordered/set.clj b/src/flatland/ordered/set.clj
@@ -53,7 +53,7 @@
   (equals [this other]
     (or (identical? this other)
         (and (instance? Set other)
-             (let [^Set s (cast Set other)]
+             (let [^Set s other]
                (and (= (.size this) (.size s))
                     (every? #(.contains s %) (.seq this)))))))
 
@@ -63,7 +63,7 @@
   (contains [this k]
     (.containsKey k->i k))
   (containsAll [this ks]
-    (every? identity (map #(.contains this %) ks)))
+    (every? #(.contains this %) ks))
   (size [this]
     (.count this))
   (isEmpty [this]