''

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

diff --git a/lily/font-interface.cc b/lily/font-interface.cc
index 57cf99679e72d511c813879f4e68c18dc2a31917..28a88c546935d6395a844cb23c01bf0d17a5ec55 100644 (file)
--- a/lily/font-interface.cc
+++ b/lily/font-interface.cc
@@ -41,11 +41,8 @@ Font_interface::font_alist_chain (Grob *me)
   SCM defaults = ly_cdr (scm_assoc (ly_symbol2scm ("font-defaults"),
                                    me->paper_l ()->style_sheet_));
 
-  SCM ch = scm_list_n (me->mutable_property_alist_,
-                   me->immutable_property_alist_,
-                   defaults,
-                   SCM_UNDEFINED);
-
+  SCM ch = me->get_property_alist_chain (defaults);
+  
   return ch;
 }