# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1313190079 14400
# Node ID 771c6a626c9304fe0c4dba1fdcebf2dbcf1382c7
# Parent  0ee291b1702de13226222deb0991055e05bc477b
Be less lazy!

diff -r 0ee291b1702d -r 771c6a626c93 src/clojurecraft/events.clj
--- 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]