spec
This commit is contained in:
parent
d0d6d7c0f2
commit
2249f661a8
2 changed files with 4 additions and 2 deletions
|
|
@ -84,7 +84,9 @@
|
||||||
'keys* (copy-var s/keys* sns)
|
'keys* (copy-var s/keys* sns)
|
||||||
'with-gen (copy-var s/with-gen sns)
|
'with-gen (copy-var s/with-gen sns)
|
||||||
'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-impl (copy-var s/multi-spec-impl sns)})
|
||||||
|
|
||||||
#_:clj-kondo/ignore
|
#_:clj-kondo/ignore
|
||||||
(def test-namespace
|
(def test-namespace
|
||||||
|
|
|
||||||
|
|
@ -418,7 +418,7 @@
|
||||||
though those values are not evident in the spec.
|
though those values are not evident in the spec.
|
||||||
"
|
"
|
||||||
[mm retag]
|
[mm retag]
|
||||||
`(multi-spec-impl '~(res mm) (var ~mm) ~retag))
|
`(clojure.spec.alpha/multi-spec-impl '~(res mm) (var ~mm) ~retag))
|
||||||
|
|
||||||
(defmacro keys
|
(defmacro keys
|
||||||
"Creates and returns a map validating spec. :req and :opt are both
|
"Creates and returns a map validating spec. :req and :opt are both
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue