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

eliminate reflection warning

Browse source
This commit is contained in:
nathanmarz 2018-05-18 13:45:20 -04:00
parent 4580de8cc6
commit 798cda211f
2 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
CHANGES.md
View file

@ -1,3 +1,7 @@
## 1.1.2-SNAPSHOT
* Eliminate reflection warning
## 1.1.1 - 2018-04-23 ## 1.1.1 - 2018-04-23
* ClojureScript 1.10 introduced a change causing the `walker` navigator to fail to walk records. `ALL` has been updated to operate over `MapEntry` in ClojureScript, fixing the issue. * ClojureScript 1.10 introduced a change causing the `walker` navigator to fail to walk records. `ALL` has been updated to operate over `MapEntry` in ClojureScript, fixing the issue.

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

@ -319,6 +319,17 @@
(get-cell cell) (get-cell cell)
)))) ))))
#?(
:clj
(defn- call-reduce-interface [^clojure.lang.IReduce traverser afn start]
(.reduce traverser afn start)
)
:cljs
(defn- call-reduce-interface [^cljs.core/IReduce traverser afn start]
(-reduce traverser afn start)
))
(defn do-compiled-traverse [apath structure] (defn do-compiled-traverse [apath structure]
(let [traverser (do-compiled-traverse* apath structure)] (let [traverser (do-compiled-traverse* apath structure)]
(reify #?(:clj clojure.lang.IReduce :cljs cljs.core/IReduce) (reify #?(:clj clojure.lang.IReduce :cljs cljs.core/IReduce)
@ -327,7 +338,7 @@
(#?(:clj .reduce :cljs -reduce) this afn (afn))) (#?(:clj .reduce :cljs -reduce) this afn (afn)))
(#?(:clj reduce :cljs -reduce) (#?(:clj reduce :cljs -reduce)
[this afn start] [this afn start]
(let [res (#?(:clj .reduce :cljs -reduce) traverser afn start)] (let [res (call-reduce-interface traverser afn start)]
(unreduced res) (unreduced res)
))))) )))))