acc -> r

metosin · Sep 2, 2023 · 4a44848 · 4a44848
1 parent 74cf75a
commit 4a44848
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/malli/impl/regex.cljc b/src/malli/impl/regex.cljc
@@ -215,19 +215,19 @@
 ;;;; ## Alternation
 
 (defn alt-validator [?kr & ?krs]
-  (reduce (fn [acc ?kr]
+  (reduce (fn [r ?kr]
             (let [r* (entry->regex ?kr)]
               (fn [driver regs pos coll k]
                 (park-validator! driver r* regs pos coll k) ; remember fallback
-                (park-validator! driver acc regs pos coll k))))
+                (park-validator! driver r regs pos coll k))))
           (entry->regex ?kr) ?krs))
 
 (defn alt-explainer [?kr & ?krs]
-  (reduce (fn [acc ?kr]
+  (reduce (fn [r ?kr]
             (let [r* (entry->regex ?kr)]
               (fn [driver regs pos coll k]
                 (park-explainer! driver r* regs pos coll k) ; remember fallback
-                (park-explainer! driver acc regs pos coll k))))
+                (park-explainer! driver r regs pos coll k))))
           (entry->regex ?kr) ?krs))
 
 (defn alt-parser [& rs]
@@ -262,11 +262,11 @@
         :malli.core/invalid))))
 
 (defn alt-transformer [?kr & ?krs]
-  (reduce (fn [acc ?kr]
+  (reduce (fn [r ?kr]
             (let [r* (entry->regex ?kr)]
               (fn [driver regs coll* pos coll k]
                 (park-transformer! driver r* regs coll* pos coll k) ; remember fallback
-                (park-transformer! driver acc regs coll* pos coll k))))
+                (park-transformer! driver r regs coll* pos coll k))))
           (entry->regex ?kr) ?krs))
 
 ;;;; ## Option