new_both.clj

(defn both [schema]
  (reify Schema
    (walker [this]
      (let [sub-walkers (mapv subschema-walker schemas)]
        (fn [x]
          (reduce
           (fn [x sub-walker]
             (if (utils/error? x)
               x
               (sub-walker x)))
           x
           sub-walkers))))))