status-im/re-frame
2
0
Fork 0
mirror of https://github.com/status-im/re-frame.git synced 2025-02-23 23:38:11 +00:00
Code Issues Projects Releases Wiki Activity

make run-queue more compact

Browse Source
This commit is contained in:
Stephen C. Gilardi 2015-11-04 15:36:41 -05:00
parent aedafd1ac9
commit 6551c010b3
1 changed files with 7 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/re_frame/router.cljs
View File

@ -111,15 +111,13 @@
;; Be aware that events might have metadata which will pause processing.
(-run-queue
[this]
(let [queue-length (count queue)]
(loop [n queue-length]
(if (zero? n)
(-fsm-trigger this :finish-run nil)
(let [event-v (peek queue)]
(if-let [later-fn (some later-fns (keys (meta event-v)))]
(-fsm-trigger this :pause-run later-fn)
(do (-process-1st-event this)
(recur (dec n)))))))))
(loop [n (count queue)]
(if (zero? n)
(-fsm-trigger this :finish-run nil)
(if-let [later-fn (some later-fns (-> queue peek meta keys))]
(-fsm-trigger this :pause-run later-fn)
(do (-process-1st-event this)
(recur (dec n)))))))
(-pause-run
[this later-fn]