patch::: 1.5.1.jcn2

[lilypond.git] / lily / note-head.cc

diff --git a/lily/note-head.cc b/lily/note-head.cc
index f7ef57ecc94a74e3b710b821e012447c0e4e2ad0..2a1c813a847f15ec2025031efe61e6e787a84032 100644 (file)
--- a/lily/note-head.cc
+++ b/lily/note-head.cc
@@ -99,11 +99,10 @@ Note_head::brew_molecule (SCM smob)
     UGH: use grob-property.
   */
   Molecule out = Font_interface::get_default_font (me)->find_by_name (String ("noteheads-") + 
-               ly_scm2string (scm_eval2 (gh_list (ly_symbol2scm ("find-notehead-symbol"),
+               ly_scm2string (scm_primitive_eval (gh_list (ly_symbol2scm ("find-notehead-symbol"),
                                                  me->get_grob_property ("duration-log"),
                                                  ly_quote_scm (style),
-                                                 SCM_UNDEFINED),
-                                         SCM_EOL)));
+                                                           SCM_UNDEFINED))));
 
   if (streepjes_i) 
     {