Add a transducer arity

src/cljam/io/vcf/util/validator.clj

@@ -280,9 +280,12 @@
 
 (defn validate-variants
   "Applies `validation-variant` to each element of the given sequence and collects
-  non-nil validation results into a lazy sequence."
-  [validator variants]
-  (keep (partial validate-variant validator) variants))
+  non-nil validation results into a lazy sequence.
+  Returns a transducer if `variants` is not specified."
+  ([validator]
+   (keep (partial validate-variant validator)))
+  ([validator variants]
+   (sequence (validate-variants validator) variants)))
 
 (defn- stringify-validation-result-messages [m]
   (with-out-str
@@ -323,6 +326,9 @@
   "Applies `check-variant` to each element of the given sequence.
   Returns a lazy sequence of the same elements of the input if there are no
   invalid variant. The validation is evaluated lazily and throws an exception
-  at the first invalid variant."
-  [validator variants]
-  (map (partial check-variant validator) variants))
+  at the first invalid variant.
+  Returns a transducer if `variants` is not specified."
+  ([validator]
+   (map (partial check-variant validator)))
+  ([validator variants]
+   (sequence (check-variants validator) variants)))