simpler loop

metosin · Sep 4, 2023 · 85de30f · 85de30f
1 parent 1d0f512
commit 85de30f
Showing 1 changed file with 7 additions and 7 deletions.
diff --git a/src/malli/core.cljc b/src/malli/core.cljc
@@ -555,13 +555,13 @@
         (-intercepting this-transformer
                        (if (= :decode method)
                          (fn [x]
-                           (key (reduce-kv
-                                 (fn [acc i transformer]
-                                   (let [x* (transformer (val acc))]
-                                     (if ((nth validators i) x*)
-                                       (reduced (miu/-tagged x* nil))
-                                       (miu/-tagged (or (key acc) x*) x))))
-                                 (miu/-tagged nil x) transformers)))
+                           (reduce-kv
+                            (fn [acc i transformer]
+                              (let [x* (transformer x)]
+                                (if ((nth validators i) x*)
+                                  (reduced x*)
+                                  (or acc x*))))
+                            nil transformers))
                          (fn [x]
                            (reduce-kv
                             (fn [x i validator] (if (validator x) (reduced ((nth transformers i) x)) x))