status-im
/
reagent
mirror of https://github.com/status-im/reagent.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

Use static property for reagReactionCache

This commit is contained in:
Juho Teperi 2018-04-19 19:36:14 +03:00
parent f2622f1544
commit 239f03b3da
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/reagent/ratom.cljs
View File

@ -174,10 +174,8 @@
(declare make-reaction)
(def ^{:private true :const true} cache-key "reagReactionCache")
(defn- cached-reaction [f o k obj destroy]
(let [m (obj/get o cache-key)
(let [m (.-reagReactionCache o)
m (if (nil? m) {} m)
r (m k nil)]
(cond
@ -186,15 +184,15 @@
:else (let [r (make-reaction
f :on-dispose (fn [x]
(when debug (swap! -running dec))
(as-> (obj/get o cache-key) _
(as-> (.-reagReactionCache o) _
(dissoc _ k)
(obj/set o cache-key _))
(set! (.-reagReactionCache o) _))
(when (some? obj)
(set! (.-reaction obj) nil))
(when (some? destroy)
(destroy x))))
v (-deref r)]
(obj/set o cache-key (assoc m k r))
(set! (.-reagReactionCache o) (assoc m k r))
(when debug (swap! -running inc))
(when (some? obj)
(set! (.-reaction obj) r))