schema-walker uses options from schema, not from walking

metosin · Jul 13, 2020 · 9f105a5 · 9f105a5
1 parent 47369ec
commit 9f105a5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/src/malli/core.cljc b/src/malli/core.cljc
@@ -1056,8 +1056,8 @@
 ;;
 
 (defn schema-walker [f]
-  (fn [schema children _ options]
-    (f (into-schema (type schema) (properties schema) children options))))
+  (fn [schema children _ _]
+    (f (into-schema (-type schema) (-properties schema) children (-options schema)))))
 
 (defn ^:no-doc map-syntax-walker [schema children _ _]
   (let [properties (properties schema)]

diff --git a/test/malli/core_test.cljc b/test/malli/core_test.cljc
@@ -71,7 +71,10 @@
 
 (deftest schema-walker-test
   (is (form= [:map {:closed true} [:x int?]]
-             (m/walk [:map {:closed true} [:x int?]] (m/schema-walker identity)))))
+             (m/walk [:map {:closed true} [:x int?]] (m/schema-walker identity))))
+  (is (form= [:map {:registry {::age [:and int? [:> 18]]}} [:age ::age]]
+             (m/walk [:map {:registry {::age [:and int? [:> 18]]}} [:age ::age]]
+                     (m/schema-walker identity)))))
 
 (deftest validation-test