From 4c29a5528ca1d3559b8062ed111cb1e632c2ae4c Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 5 Feb 2016 13:39:05 -0500
Subject: render: font: Add docstring for enable-fonts.

* sly/render/font.scm (enable-fonts): Add docstring.
---
 sly/render/font.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/sly/render/font.scm b/sly/render/font.scm
index 1312168..32f425c 100644
--- a/sly/render/font.scm
+++ b/sly/render/font.scm
@@ -47,15 +47,16 @@
 ;;; Font
 ;;;
 
-(define (enable-fonts)
-  (sdl2:ttf-init))
-
 (define-record-type <font>
   (make-font ttf point-size)
   font?
   (ttf font-ttf)
   (point-size font-point-size))
 
+(define (enable-fonts)
+  "Enable font rendering."
+  (sdl2:ttf-init))
+
 (define (load-font filename point-size)
   "Load the TTF font in FILENAME with the given POINT-SIZE."
   (if (file-exists? filename)
-- 
cgit v1.2.3