From 586f9e64e8c009c9183f72988cd2a31ac5807ab8 Mon Sep 17 00:00:00 2001
From: Jestine Paul <jestinepaul@users.noreply.github.com>
Date: Fri, 19 Dec 2014 11:46:57 +0800
Subject: [PATCH] Fixed NullPointerException from set-error-mode!

---
 src/clj/joy/sim_test.clj | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/clj/joy/sim_test.clj b/src/clj/joy/sim_test.clj
index 7c339c1..8e0ac65 100644
--- a/src/clj/joy/sim_test.clj
+++ b/src/clj/joy/sim_test.clj
@@ -72,9 +72,11 @@
 (def agent-for-player
   (memoize
    (fn [player-name]
-     (-> (agent [])
-         (set-error-handler! #(println "ERROR: " %1 %2))
-         (set-error-mode! :fail)))))
+     (let [a (agent [])]
+       (set-error-handler! a #(println "ERROR: " %1 %2))
+       (set-error-mode! a :fail)
+       a))))
+
 
 (defn feed [db event]
   (let [a (agent-for-player (:player event))]