X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_FTGL.c;h=af14ababba2f68106cb191a78c025a0ceb559428;hb=4fa4326c57c1022891fd0a7678f139119e997116;hp=8a44d8e34118a70e2ceb97c01eafcf6391f94eff;hpb=c05abaebcb1d568b9e0140db11b8a07abe783749;p=gacela.git

diff --git a/src/gacela_FTGL.c b/src/gacela_FTGL.c
index 8a44d8e..af14aba 100644
--- a/src/gacela_FTGL.c
+++ b/src/gacela_FTGL.c
@@ -94,15 +94,14 @@ 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_UNSPECIFIED;
+    return SCM_UNDEFINED;
   }
 }