(LY_DEFINE): use Scheme style naming for

[lilypond.git] / lily / cluster-engraver.cc

diff --git a/lily/cluster-engraver.cc b/lily/cluster-engraver.cc
index 494d3d147bd9956f794bc3fe7cbcd51176c1ce11..0988829f26c67da3a297dfc78fea1fab81634d07 100644 (file)
--- a/lily/cluster-engraver.cc
+++ b/lily/cluster-engraver.cc
@@ -88,7 +88,7 @@ Cluster_spanner_engraver::process_music ()
       
       for (int i = 0; i <cluster_notes_.size (); i++)
        {
-         Pitch *pit =unsmob_pitch (cluster_notes_[i]->get_mus_property ("pitch"));
+         Pitch *pit =unsmob_pitch (cluster_notes_[i]->get_property ("pitch"));
 
          int p =( pit ? pit->steps () : 0) + c0;
 
@@ -97,7 +97,7 @@ Cluster_spanner_engraver::process_music ()
        }
       
       beacon_ = make_item ("ClusterSpannerBeacon");
-      beacon_->set_grob_property ("positions",
+      beacon_->set_property ("positions",
                                  scm_cons (gh_int2scm (pmin),
                                            gh_int2scm (pmax)));
       announce_grob (beacon_, cluster_notes_[0]->self_scm ());