* Documentation/topdocs/INSTALL.texi (Top): bump GUILE

[lilypond.git] / lily / font-interface.cc

diff --git a/lily/font-interface.cc b/lily/font-interface.cc
index 5a7d6300df5eca55d71f0b0a3b8db67a94db5d64..dc0882e23c9fd65075284e5e2ad814f89e853d80 100644 (file)
--- a/lily/font-interface.cc
+++ b/lily/font-interface.cc
@@ -106,7 +106,7 @@ LY_DEFINE(ly_font_interface_get_font,"ly:get-font", 2, 0, 0,
 Font_metric *
 Font_interface::get_font (Grob *me, SCM chain)
 {
-  SCM name = me->get_grob_property ("font-name");
+  SCM name = ly_assoc_chain (ly_symbol2scm  ("font-name"), chain);
   
   if (!gh_string_p (name))
     {