luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

wip

Browse source
This commit is contained in:
Michiel Borkent 2022-09-28 12:46:52 +02:00
parent 2249f661a8
commit f3b610ba42
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
feature-spec-alpha/babashka/impl/spec.clj
View file

@ -86,7 +86,13 @@
'check-asserts (copy-var s/check-asserts sns) 'check-asserts (copy-var s/check-asserts sns)
'*explain-out* s/explain-out-var '*explain-out* s/explain-out-var
'multi-spec (copy-var s/multi-spec sns) 'multi-spec (copy-var s/multi-spec sns)
'multi-spec-impl (copy-var s/multi-spec-impl sns)}) 'multi-spec-impl (copy-var s/multi-spec-impl sns)
'spec? (copy-var s/spec? sns)
'assert (copy-var s/assert sns)
'assert* (copy-var s/assert* sns)
'explain-printer (copy-var s/explain-printer sns)
;; PRIVATE, but exposed for expound
'maybe-spec (copy-var s/maybe-spec sns)})
#_:clj-kondo/ignore #_:clj-kondo/ignore
(def test-namespace (def test-namespace

4
src/babashka/impl/clojure/spec/alpha.clj
View file

@ -107,7 +107,7 @@
(declare spec-impl) (declare spec-impl)
(declare regex-spec-impl) (declare regex-spec-impl)
(defn- maybe-spec (defn maybe-spec
"spec-or-k must be a spec, regex or resolvable kw/sym, else returns nil." "spec-or-k must be a spec, regex or resolvable kw/sym, else returns nil."
[spec-or-k] [spec-or-k]
(let [s (c/or (c/and (ident? spec-or-k) (reg-resolve spec-or-k)) (let [s (c/or (c/and (ident? spec-or-k) (reg-resolve spec-or-k))
@ -2003,6 +2003,6 @@ system property. Defaults to true."}
[spec x] [spec x]
(if *compile-asserts* (if *compile-asserts*
`(if clojure.lang.RT/checkSpecAsserts `(if clojure.lang.RT/checkSpecAsserts
(assert* ~spec ~x) (clojure.spec.alpha/assert* ~spec ~x)
~x) ~x)
x)) x))