From 89f8e3463bb36efbe6c3b4265e5b969810ecd7cb Mon Sep 17 00:00:00 2001
From: oakes <zsoakes@gmail.com>
Date: Wed, 1 Jan 2014 03:54:23 -0500
Subject: [PATCH] Use dummy function in defgame as well

---
 src/play_clj/core.clj | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/play_clj/core.clj b/src/play_clj/core.clj
index 86a6483..85b1cc7 100644
--- a/src/play_clj/core.clj
+++ b/src/play_clj/core.clj
@@ -51,9 +51,10 @@
   `(defonce ~name (defscreen* ~options)))
 
 (defn defgame*
-  [{:keys [on-create]}]
+  [{:keys [on-create]
+    :or {on-create dummy}}]
   (proxy [Game] []
-    (create [] (when on-create (on-create this)))))
+    (create [] (on-create this))))
 
 (defmacro defgame
   [name & {:keys [] :as options}]