Improve idiom in compare-seqs.

greglook · May 21, 2014 · d2c1b52 · d2c1b52
1 parent f3add97
commit d2c1b52
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/src/puget/data.clj b/src/puget/data.clj
@@ -38,8 +38,7 @@
   sequences orders differently, it determines the ordering. Otherwise, if the
   prefix matches, the longer sequence sorts later."
   [order xs ys]
-  (or (some #(when-not (= 0 %) %)
-            (map order xs ys))
+  (or (first (remove zero? (map order xs ys)))
       (- (count xs) (count ys))))