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

A little cleanup

This commit is contained in:
Dan Holmsand 2015-09-11 18:23:18 +02:00
parent b1acdea090
commit 2895c9bed7
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/reagent/ratom.cljs
View File

@ -198,7 +198,7 @@
(defprotocol IComputedImpl
(-peek-at [this])
(-check-clean [this])
(^boolean -check-clean [this])
(-handle-change [this sender oldval newval])
(-update-watching [this derefed]))
@ -261,9 +261,10 @@
(set! norun? true)
(doseq [w watching]
(when (and (instance? Reaction w)
(not (== (.-dirtyness w) clean)))
(when-not (-check-clean w)
((or (.-auto-run w) run) w))))
(not (-check-clean w)))
(if-some [ar (.-auto-run w)]
(ar w)
(run w))))
(set! norun? false)
(when (== dirtyness maybe-dirty)
(set! dirtyness clean)))
@ -277,13 +278,13 @@
dirty)]
(when (> new-dirty old-dirty)
(set! dirtyness new-dirty)
(if (some? auto-run)
(if-some [arun auto-run]
(when-not norun?
(if-not (identical? auto-run run)
(auto-run this)
(when-not (-check-clean this)
(auto-run this))))
(-notify-watches this state state)))))
(when-not (and (identical? arun run)
(-check-clean this))
(arun this)))
(-notify-watches this state state))))
nil)
(-update-watching [this derefed]
(doseq [w derefed]