From 0e2998826f8267fc07da0685334646b804105e10 Mon Sep 17 00:00:00 2001
From: oakes <zsoakes@gmail.com>
Date: Thu, 9 Jan 2014 23:43:47 -0500
Subject: [PATCH] Improve performance of function

---
 src/play_clj/core_render.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/play_clj/core_render.clj b/src/play_clj/core_render.clj
index 6aa1877..0f72274 100644
--- a/src/play_clj/core_render.clj
+++ b/src/play_clj/core_render.clj
@@ -25,7 +25,7 @@
   (if (isa? (type layer) MapLayer)
     layer
     (->> (tiled-map-layers screen)
-         (filter #(= layer (.getName ^MapLayer %)))
+         (drop-while #(not= layer (.getName ^MapLayer %)))
          first)))
 
 (defn tiled-map-layer-name