From 13f0ad4e9449237c89a2011c6d18c60ef7819196 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 30 Nov 2014 20:05:34 -0500
Subject: render: sprite: Alias make-sprite to sprite.

* sly/render/sprite.scm (sprite): New procedure.
---
 sly/render/sprite.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/sly/render/sprite.scm b/sly/render/sprite.scm
index c1d8439..ace9373 100644
--- a/sly/render/sprite.scm
+++ b/sly/render/sprite.scm
@@ -39,8 +39,7 @@
   #:use-module (sly signal)
   #:use-module (sly render texture)
   #:use-module (sly math vector)
-  #:export (make-sprite
-            load-sprite
+  #:export (make-sprite sprite load-sprite
             make-animated-sprite))
 
 ;;;
@@ -78,6 +77,8 @@ custom SHADER can be specified."
                 #:mesh mesh
                 #:depth-test? #f)))
 
+(define sprite make-sprite)
+
 (define* (load-sprite file-name #:optional #:key (shader (load-default-shader))
                       (anchor 'center))
   "Return a sprite mesh for the texture loaded from FILE-NAME.
-- 
cgit v1.2.3