eliminate reflection warning

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

View file

@ -1,3 +1,7 @@
## 1.1.2-SNAPSHOT
* Eliminate reflection warning
## 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.

View file

@ -319,6 +319,17 @@
(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]
(let [traverser (do-compiled-traverse* apath structure)]
(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 start]
(let [res (#?(:clj .reduce :cljs -reduce) traverser afn start)]
(let [res (call-reduce-interface traverser afn start)]
(unreduced res)
)))))