(LY_DEFINE): use Scheme style naming for

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

diff --git a/lily/tie-engraver.cc b/lily/tie-engraver.cc
index 78a5e49ec58014485df090fe8a98d9116a9ed954..b30d40c35eb1788d8bde2d49620ea3a1a4babc2f 100644 (file)
--- a/lily/tie-engraver.cc
+++ b/lily/tie-engraver.cc
@@ -97,15 +97,15 @@ Tie_engraver::acknowledge_grob (Grob_info i)
       for  (int i = heads_to_tie_.size (); i--;)
        {
          Grob *th =  heads_to_tie_[i];
-         Music * right_mus = unsmob_music (h->get_grob_property ("cause"));
-         Music * left_mus = unsmob_music (th->get_grob_property ("cause"));
+         Music * right_mus = unsmob_music (h->get_property ("cause"));
+         Music * left_mus = unsmob_music (th->get_property ("cause"));
 
          /*
            maybe should check positions too.
           */
          if (right_mus && left_mus
-             && gh_equal_p (right_mus->get_mus_property ("pitch"),
-                            left_mus->get_mus_property ("pitch")))
+             && gh_equal_p (right_mus->get_property ("pitch"),
+                            left_mus->get_property ("pitch")))
            {
              Grob * p = make_spanner ("Tie");
              Tie::set_interface (p); // cannot remove yet!
@@ -182,8 +182,8 @@ Tie_engraver::typeset_tie (Grob *her)
       new_head_drul[d] = Tie::head (her, (Direction)-d);
   } while (flip (&d) != LEFT);
 
-  index_set_cell (her->get_grob_property ("head-pair"), LEFT, new_head_drul[LEFT]->self_scm ());
-  index_set_cell (her->get_grob_property ("head-pair"), RIGHT, new_head_drul[RIGHT]->self_scm ());
+  index_set_cell (her->get_property ("head-pair"), LEFT, new_head_drul[LEFT]->self_scm ());
+  index_set_cell (her->get_property ("head-pair"), RIGHT, new_head_drul[RIGHT]->self_scm ());
 
   typeset_grob (her);
 }