From 77081f74f9e41cb3b4e5b539dc45c0ff39c6ea65 Mon Sep 17 00:00:00 2001 From: oakes Date: Fri, 3 Jan 2014 10:06:47 -0500 Subject: [PATCH] Make functions pure --- src/play_clj/core_2d.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/play_clj/core_2d.clj b/src/play_clj/core_2d.clj index 8f4d286..ca0b255 100644 --- a/src/play_clj/core_2d.clj +++ b/src/play_clj/core_2d.clj @@ -41,14 +41,14 @@ (defn image-width ([^TextureRegion img] (.getRegionWidth img)) - ([^TextureRegion img val] - (.setRegionWidth img val))) + ([img val] + (doto ^TextureRegion (image img) (.setRegionWidth val)))) (defn image-height ([^TextureRegion img] (.getRegionHeight img)) - ([^TextureRegion img val] - (.setRegionHeight img val))) + ([img val] + (doto ^TextureRegion (image img) (.setRegionHeight val)))) (defn split-image ([val size]