SpindleyQ/hottub
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

More idiomatic looping

Browse source
This commit is contained in:
Jeremy Penner 2013-03-09 09:26:09 -06:00
parent 1118b012f1
commit 492b5393a1
1 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/hottub/event.clj
View file

@ -13,18 +13,14 @@
(defn post-event [event]
(post-event-to *evq* event))
(defn handle-next-event [evq & dispatchersInit]
(defn handle-next-event [evq & dispatchers]
(dosync (let [queueold @evq]
(if (seq queueold)
(let [queuenew (pop queueold) event (peek queueold)]
(loop [dispatchers dispatchersInit]
(if (seq dispatchers)
(do
((first dispatchers) event)
(recur (next dispatchers)))
(do
(doseq [dispatcher dispatchers]
(dispatcher event))
(ref-set evq queuenew)
true))))
true)
false))))
(defn handle-events [evq & dispatchers]