Clarify conditional logic

2014-05-21 22:17:03 -04:00
parent 9ddc6017ab
commit 88bb6e54e3
1 changed files with 2 additions and 2 deletions
--- a/src/play_clj/g2d.clj
+++ b/src/play_clj/g2d.clj
@@ -48,7 +48,7 @@
      (-> ^Pixmap arg Texture. TextureRegion.)
      (isa? (type arg) TextureRegion)
      arg
-      (:object arg)
+      (isa? (type arg) TextureEntity)
      (TextureRegion. ^TextureRegion (:object arg))
      :else
      (TextureRegion. arg))))
@@ -96,7 +96,7 @@
              (Texture. ^String arg))
          TextureRegion.
          NinePatch.)
-      (:object arg)
+      (isa? (type arg) NinePatchEntity)
      (NinePatch. (:object arg))
      (map? arg)
      (let [{:keys [region left right top bottom]} arg]