From aed7e8e57eaa39662f7ec584a0ff756ad0e632f4 Mon Sep 17 00:00:00 2001
From: oakes <zsoakes@gmail.com>
Date: Sat, 17 May 2014 23:26:21 -0400
Subject: [PATCH] Pass metadata the wrapper function so it knows which screen
 function is running

---
 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 e1c7df0..961c2fe 100644
--- a/src/play_clj/core.clj
+++ b/src/play_clj/core.clj
@@ -68,8 +68,9 @@
                       (when func
                         (let [screen-map (merge @screen options)
                               old-entities @entities]
-                          (some->> (fn []
-                                     (normalize (func screen-map old-entities)))
+                          (some->> (with-meta
+                                     #(normalize (func screen-map old-entities))
+                                     (meta func))
                                    (wrapper screen)
                                    (reset-changed! entities old-entities)))))]
     ; add the input listeners to the screen atom