hg.stevelosh.com > clojurecraft

771c6a626c93 

Be less lazy!
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Fri, 12 Aug 2011 19:01:19 -0400
parents 0ee291b1702d
children d9fe18146e9d
branches/tags (none)
files src/clojurecraft/events.clj

Changes

--- a/src/clojurecraft/events.clj	Fri Aug 12 18:40:38 2011 -0400
+++ b/src/clojurecraft/events.clj	Fri Aug 12 19:01:19 2011 -0400
@@ -14,7 +14,7 @@
   (let [action-groups (map #(apply (deref %) (into [bot] args))
                            (event-type @(:event-handlers bot)))
         queue-action #(.put (:actionqueue bot) %)
-        queue-action-group #(map queue-action %)]
+        queue-action-group #(dorun (map queue-action %))]
     (dorun (map queue-action-group action-groups))))
 
 (defn fire-chat [bot message]