summaryrefslogtreecommitdiff
path: root/2d
diff options
context:
space:
mode:
Diffstat (limited to '2d')
-rw-r--r--2d/font.scm6
1 files 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