(LY_DEFINE): store name before destroying face.

diff --git a/ChangeLog b/ChangeLog
index d8d686364fe3ddda32a777b834cfa28b6e18d93f..25e13176e8bcb5f007780eb218b3a31352405268 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2006-01-22  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+       * lily/ttf.cc (LY_DEFINE): store name before destroying face.
+
        * mf/GNUmakefile: idem.
 
        * buildscripts/mf-to-table.py (help): excise fetaXXlist.ly support.

diff --git a/lily/ttf.cc b/lily/ttf.cc
index 78530d00da6ae666984bd5d0e5c07773d9356aad..31fc47b07bb12b13ba662514303055baf0271404 100644 (file)
--- a/lily/ttf.cc
+++ b/lily/ttf.cc
@@ -191,7 +191,6 @@ LY_DEFINE (ly_font_glyph_list, "ly:font-glyph-list",
     }
   
   FT_Done_Face (face);
-
   if (be_verbose_global)
     progress_indication ("]");  
   return retval;
@@ -209,13 +208,14 @@ LY_DEFINE (ly_ttf_ps_name, "ly:ttf-ps-name",
 
   FT_Face face = open_ft_face (file_name);
   char const *ps_name_str0 = FT_Get_Postscript_Name (face);
+  SCM ps_name = scm_makfrom0str (ps_name_str0 ? ps_name_str0 : "");
   
   FT_Done_Face (face);
   
   if (be_verbose_global)
     progress_indication ("]");
-
-  return scm_makfrom0str (ps_name_str0 ? ps_name_str0 : "");
+  
+  return ps_name;
 }