[#38] Refactor zen.schema/compile-schema when-fn check

Co-authored-by: @islambegkatibov <[email protected]>
zen-lang · Jan 20, 2023 · 865d98d · 865d98d
1 parent 5a280d3
commit 865d98d
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/zen/schema.clj b/src/zen/schema.clj
@@ -85,9 +85,8 @@
                  vtx* (navigate-props (assoc vtx :type (:type schema)) data props opts)]
             (if (empty? rs)
               vtx*
-              (let [{when-fn :when rule-fn :rule} (first rs)
-                    when-fn (or when-fn (constantly true))]
-                (if (when-fn data)
+              (let [{when-fn :when rule-fn :rule} (first rs)]
+                (if (or (nil? when-fn) (when-fn data))
                   (recur (rest rs) (rule-fn vtx* data opts))
                   (recur (rest rs) vtx*))))))]