node-2d: Clean up <sprite> render code.

1 files changed, 4 insertions, 7 deletions

diff --git a/starling/node-2d.scm b/starling/node-2d.scm
index 09894a3..67ec6e6 100644
--- a/starling/node-2d.scm
+++ b/starling/node-2d.scm
@@ -690,13 +690,10 @@
   (texture-height (texture sprite)))
 
 (define-method (render (sprite <sprite>) alpha)
-  (let* ((tex (texture sprite))
-         (rect (size sprite))
-         (tint (tint sprite))
-         (matrix (world-matrix sprite)))
-    (draw-sprite* tex rect matrix
-                  #:tint tint
-                  #:texcoords (texture-gl-tex-rect tex))))
+  (let ((t (texture sprite)))
+    (draw-sprite* t (size sprite) (world-matrix sprite)
+                  #:tint (tint sprite)
+                  #:texcoords (texture-gl-tex-rect t))))
 
 
 ;;;