(no commit message)

[gacela.git] / src / gacela_FTGL.c

diff --git a/src/gacela_FTGL.c b/src/gacela_FTGL.c
index 8a44d8e34118a70e2ceb97c01eafcf6391f94eff..643707e466fae7d0c9749b9e782cbfa2034aeee1 100644 (file)
--- a/src/gacela_FTGL.c
+++ b/src/gacela_FTGL.c
@@ -94,15 +94,13 @@ print_font (SCM font_smob, SCM port, scm_print_state *pstate)
 SCM
 gacela_ftglCreateTextureFont (SCM file)
 {
-  FTGLfont *font_address = NULL;
-
-  font_address = ftglCreateTextureFont (scm_to_locale_string (file));
+  FTGLfont *font_address = ftglCreateTextureFont (scm_to_locale_string (file));
 
   if (font_address) {
     return make_font (file, font_address);
   }
   else {
-    return SCM_UNSPECIFIED;
+    return SCM_BOOL_F;
   }
 }