Avoid calling flush! when flushing

This commit is contained in:
Dan Holmsand 2015-10-08 07:04:41 +02:00
parent 158fca953b
commit 0c8269766f
1 changed files with 4 additions and 4 deletions

View File

@ -375,7 +375,9 @@
(set! dirty? true)
(if (nil? auto-run)
(rea-enqueue this)
(auto-run this))))
(if (true? auto-run)
(._run this)
(auto-run this)))))
(_update-watching [this derefed]
(let [new (set derefed)
@ -410,9 +412,7 @@
(_set-opts [this {:keys [auto-run on-set on-dispose no-cache]}]
(when (some? auto-run)
(set! (.-auto-run this) (case auto-run
true run
auto-run)))
(set! (.-auto-run this) auto-run))
(when (some? on-set)
(set! (.-on-set this) on-set))
(when (some? on-dispose)