From bd36cff1e30280c40be50c2be93f7ff38114d350 Mon Sep 17 00:00:00 2001
From: oakes <zsoakes@gmail.com>
Date: Wed, 1 Jan 2014 03:52:32 -0500
Subject: [PATCH] Clean up dummy functions

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

diff --git a/src/play_clj/core.clj b/src/play_clj/core.clj
index 22ebc15..86a6483 100644
--- a/src/play_clj/core.clj
+++ b/src/play_clj/core.clj
@@ -17,17 +17,14 @@
 (load "core_global")
 (load "core_render")
 
+(defn- dummy [_])
+
 (defn defscreen*
   [{:keys [on-show on-render on-hide on-pause on-resize on-resume]
+    :or {on-show dummy on-render dummy on-hide dummy
+         on-pause dummy on-resize dummy on-resume dummy}
     :as options}]
-  (let [screen (atom {})
-        dummy-fn (fn [s])
-        on-show (or on-show dummy-fn)
-        on-render (or on-render dummy-fn)
-        on-hide (or on-hide dummy-fn)
-        on-pause (or on-pause dummy-fn)
-        on-resize (or on-resize dummy-fn)
-        on-resume (or on-resume dummy-fn)]
+  (let [screen (atom {})]
     (proxy [Screen] []
       (show []
         (on-show (swap! screen assoc