Clarify conditional logic

This commit is contained in:
oakes
2014-05-21 22:17:03 -04:00
parent 9ddc6017ab
commit 88bb6e54e3

View File

@@ -48,7 +48,7 @@
(-> ^Pixmap arg Texture. TextureRegion.) (-> ^Pixmap arg Texture. TextureRegion.)
(isa? (type arg) TextureRegion) (isa? (type arg) TextureRegion)
arg arg
(:object arg) (isa? (type arg) TextureEntity)
(TextureRegion. ^TextureRegion (:object arg)) (TextureRegion. ^TextureRegion (:object arg))
:else :else
(TextureRegion. arg)))) (TextureRegion. arg))))
@@ -96,7 +96,7 @@
(Texture. ^String arg)) (Texture. ^String arg))
TextureRegion. TextureRegion.
NinePatch.) NinePatch.)
(:object arg) (isa? (type arg) NinePatchEntity)
(NinePatch. (:object arg)) (NinePatch. (:object arg))
(map? arg) (map? arg)
(let [{:keys [region left right top bottom]} arg] (let [{:keys [region left right top bottom]} arg]