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-10-02 18:41:37 +02:00
parent 87d83bf95f
commit 76f96ab5b1
1 changed files with 112 additions and 109 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -329,8 +329,11 @@
(defn res [form] (defn res [form]
(cond (cond
(keyword? form) form (keyword? form) form
(symbol? form) (c/or (symbol? form) (cond
(-> form sci-resolve ->sym) form) (= 'fn form) 'clojure.core/fn ;; make tests pass, fn is not a macro in SCI
(= 'not form) 'clojure.core/not ;; make tests pass, not is not a macro in SCI
:else (c/or
(-> form sci-resolve ->sym) form))
(sequential? form) (walk/postwalk #(if (symbol? %) (res %) %) (unfn form)) (sequential? form) (walk/postwalk #(if (symbol? %) (res %) %) (unfn form))
:else form)) :else form))
@ -563,7 +566,7 @@
returns a test.check generator returns a test.check generator
See also - coll-of, every-kv See also - coll-of, every-kv
" "
[pred & {:keys [into kind count max-count min-count distinct gen-max gen] :as opts}] [pred & {:keys [into kind count max-count min-count distinct gen-max gen] :as opts}]
(let [desc (:clojure.spec.alpha/describe opts) (let [desc (:clojure.spec.alpha/describe opts)
nopts (-> opts nopts (-> opts