X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_FTGL.c;h=643707e466fae7d0c9749b9e782cbfa2034aeee1;hb=500b68bdf16918b05f859830cc83d5a429d5b447;hp=8a44d8e34118a70e2ceb97c01eafcf6391f94eff;hpb=4bac3b0a456580ff2072f5857d47f5231423e5ef;p=gacela.git

diff --git a/src/gacela_FTGL.c b/src/gacela_FTGL.c
index 8a44d8e..643707e 100644
--- 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;
   }
 }