test for long instead of catching error

cognitect · Jan 11, 2015 · 93bf0ce · 93bf0ce
1 parent 1308373
commit 93bf0ce
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/exemplar.clj b/src/exemplar.clj
@@ -13,7 +13,7 @@ marshal them to files for edn, json, json-verbose, and msgpack."
 (defn range-centered-on
   ([n] (range-centered-on n 5))
   ([n m] (mapv
-          #(try (long %) (catch Exception e %))
+          #(if (<= % Long/MAX_VALUE) (long %) %)
           (range (- n m) (+ n m 1)))))
 
 (defn vector-of-keywords