From ab2db55b0c90af51ec4414e58d313b63f752da22 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 30 Nov 2014 13:26:16 -0500
Subject: render: font: Alias 'make-label' to 'label'.

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

diff --git a/sly/render/font.scm b/sly/render/font.scm
index a4140d8..43c3ecd 100644
--- a/sly/render/font.scm
+++ b/sly/render/font.scm
@@ -42,7 +42,7 @@
             load-default-font
             font?
             font-point-size
-            make-label))
+            make-label label))
 
 ;;;
 ;;; Font
@@ -84,8 +84,8 @@ HEIGHT, 32 bit color bytevector."
 
 (define (render-text font text)
   "Return a new texture with TEXT rendered using FONT."
-  ;; An empty string will result in a surface value of #f, in which we
-  ;; want to abort the texture creation process.
+  ;; An empty string will result in a surface value of #f, in which
+  ;; case we want to abort the texture creation process.
   (and-let* ((surface (SDL:render-utf8 (font-ttf font) text
                                        (SDL:make-color 255 255 255) #t))
              (width (SDL:surface:w surface))
@@ -101,3 +101,5 @@ HEIGHT, 32 bit color bytevector."
                      (shader (load-default-shader)))
   (let ((texture (render-text font text)))
     (make-sprite texture #:shader shader #:anchor anchor)))
+
+(define label make-label)
-- 
cgit v1.2.3