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

replace any-pred? with core function some-fn

Browse source
This commit is contained in:
Nathan Marz 2016-09-07 15:19:50 -04:00
parent 5162a23607
commit 03493cf9ca
2 changed files with 13 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
CHANGES.md
View file

@ -1,6 +1,6 @@
## 0.13.1-SNAPSHOT
* Rename any? in com.rpl.specter.impl to avoid conflict with Clojure 1.9
* Remove any? in com.rpl.specter.impl to avoid conflict with Clojure 1.9
## 0.13.0

30
src/clj/com/rpl/specter/impl.cljc
View file

@ -527,12 +527,6 @@
(with-meta ret (meta structure))
ret))))
(defn any-pred?
"Accepts any number of predicates that take in one input and returns a new predicate that returns true if any of them are true"
[& preds]
(fn [obj]
(some #(% obj) preds)))
#?(:clj
(do
@ -544,18 +538,18 @@
(eval `(let [~@lv] ~body)))))
(let [embeddable? (any-pred? number?
symbol?
keyword?
string?
char?
list?
vector?
set?
#(and (map? %) (not (record? %)))
nil?
#(instance? clojure.lang.Cons %)
#(instance? clojure.lang.LazySeq %))]
(let [embeddable? (some-fn number?
symbol?
keyword?
string?
char?
list?
vector?
set?
#(and (map? %) (not (record? %)))
nil?
#(instance? clojure.lang.Cons %)
#(instance? clojure.lang.LazySeq %))]
(defn eval+
"Automatically extracts non-evalable stuff into a closure and then evals"
[form]