🐛 Ensure verify! works as expected on production builds

2026-04-29 05:08:08 +00:00 · 2023-05-18 17:03:08 +02:00 · 2023-05-18 17:03:08 +02:00 · 390f2b35fc
commit 390f2b35fc
parent 02fbce13f0
1 changed files with 19 additions and 3 deletions
--- a/common/src/app/common/data/macros.cljc
+++ b/common/src/app/common/data/macros.cljc
@ -153,6 +153,22 @@
              (throw (ex-info hint# params#)))))))))

 (defmacro verify!
-  [& params]
-  (binding [*assert* true]
-    `(assert! ~@params)))
+  ([expr]
+   `(assert! nil ~expr))
+  ([hint expr]
+   (let [hint (cond
+                (vector? hint)
+                `(str/ffmt ~@hint)
+
+                (some? hint)
+                hint
+
+                :else
+                (str "expr assert: " (pr-str expr)))]
+     `(binding [*assert-context* true]
+        (when-not ~expr
+          (let [hint#   ~hint
+                params# {:type :assertion
+                         :code :expr-validation
+                         :hint hint#}]
+            (throw (ex-info hint# params#))))))))