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] (defn post-event [event]
(post-event-to *evq* event)) (post-event-to *evq* event))
(defn handle-next-event [evq & dispatchersInit] (defn handle-next-event [evq & dispatchers]
(dosync (let [queueold @evq] (dosync (let [queueold @evq]
(if (seq queueold) (if (seq queueold)
(let [queuenew (pop queueold) event (peek queueold)] (let [queuenew (pop queueold) event (peek queueold)]
(loop [dispatchers dispatchersInit] (doseq [dispatcher dispatchers]
(if (seq dispatchers) (dispatcher event))
(do
((first dispatchers) event)
(recur (next dispatchers)))
(do
(ref-set evq queuenew) (ref-set evq queuenew)
true)))) true)
false)))) false))))
(defn handle-events [evq & dispatchers] (defn handle-events [evq & dispatchers]