From 012f2b0acd0157f8e87397bce7a71d0dd5e00234 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 15 Feb 2014 15:24:07 -0500
Subject: Don't load default font upon module import.

* 2d/font.scm (default-font): Delete variable.
  (load-default-font): New procedure.
---
 2d/font.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/2d/font.scm b/2d/font.scm
index 1e5f6ef..7da74a3 100644
--- a/2d/font.scm
+++ b/2d/font.scm
@@ -64,8 +64,8 @@ upper-left corner rather than the bottom-left."
                       text
                       (ftgl-render-mode all))))
 
-(define default-font
-  (load-font (string-append %pkgdatadir "/fonts/DejaVuSans.ttf") 12))
+(define* (load-default-font #:optional (size 12))
+  (load-font (string-append %pkgdatadir "/fonts/DejaVuSans.ttf") size))
 
 (export <font>
         make-font
@@ -73,7 +73,7 @@ upper-left corner rather than the bottom-left."
         font-size
         load-font
         draw-font
-        default-font)
+        load-default-font)
 
 ;;;
 ;;; Textbox
-- 
cgit v1.2.3