(LY_DEFINE): use Scheme style naming for

[lilypond.git] / lily / part-combine-engraver.cc

diff --git a/lily/part-combine-engraver.cc b/lily/part-combine-engraver.cc
index c5216f5544d8fa469718b23f286f3585b6cf5921..61cf5404dd95544ea3dcb1f0d9bcd7bd4be85502 100644 (file)
--- a/lily/part-combine-engraver.cc
+++ b/lily/part-combine-engraver.cc
@@ -50,7 +50,7 @@ Part_combine_engraver::process_music ()
   if (event_
       && to_boolean (get_property ("soloADue")))
     {
-      SCM what = event_->get_mus_property ("part-combine-status");
+      SCM what = event_->get_property ("part-combine-status");
       SCM text = SCM_EOL;
       if (what == ly_symbol2scm ("solo1"))
        text = get_property ("soloText");
@@ -62,7 +62,7 @@ Part_combine_engraver::process_music ()
       if (Text_item::markup_p (text))
        {
          text_ =  make_item ("CombineTextScript");
-         text_->set_grob_property ("text", text);
+         text_->set_property ("text", text);
          announce_grob (text_, event_->self_scm ());
        }
     }