Skip to content

Commit 6f4b313

Browse files
anmonteirodnolen
authored andcommitted
CLJS-1979: port CLJ-2043 (fix s/form of s/conformer)
1 parent 1c98020 commit 6f4b313

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/main/cljs/cljs/spec.cljc

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -346,8 +346,8 @@
346346
(possibly converted) value or :cljs.spec/invalid, and returns a
347347
spec that uses it as a predicate/conformer. Optionally takes a
348348
second fn that does unform of result of first"
349-
([f] `(spec-impl '~f ~f nil true))
350-
([f unf] `(spec-impl '~f ~f nil true ~unf)))
349+
([f] `(spec-impl '(conformer ~(res &env f)) ~f nil true))
350+
([f unf] `(spec-impl '(conformer ~(res &env f) ~(res &env unf)) ~f nil true ~unf)))
351351

352352
(defmacro fspec
353353
"takes :args :ret and (optional) :fn kwargs whose values are preds

0 commit comments

Comments
 (0)