(LY_DEFINE): use Scheme style naming for

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

diff --git a/lily/tuplet-engraver.cc b/lily/tuplet-engraver.cc
index 0db8d88ef25af4fff6f1c2e1269e2a84bf193cea..128238a34364c20de43c25c11bfbb228bd7f5b9c 100644 (file)
--- a/lily/tuplet-engraver.cc
+++ b/lily/tuplet-engraver.cc
@@ -44,7 +44,7 @@ Tuplet_engraver::try_music (Music *c)
 {
   if (c->is_mus_type ("time-scaled-music"))
     {
-      Music *el = unsmob_music (c->get_mus_property ("element"));
+      Music *el = unsmob_music (c->get_property ("element"));
       if (el && !el->is_mus_type ("event-chord"))
        {
          time_scaled_musics_.push (c);
@@ -82,7 +82,7 @@ Tuplet_engraver::process_acknowledged_grobs ()
       if (gh_procedure_p (proc))
        {
          SCM t = gh_apply (proc, scm_list_n (time_scaled_musics_[i]->self_scm (), SCM_UNDEFINED));
-         glep->set_grob_property ("text", t);
+         glep->set_property ("text", t);
        }
       
       announce_grob(glep, time_scaled_musics_ [i]->self_scm());