(LY_DEFINE): use Scheme style naming for

[lilypond.git] / lily / figured-bass-engraver.cc

diff --git a/lily/figured-bass-engraver.cc b/lily/figured-bass-engraver.cc
index 91023c09a6f9c6b4ac7ff699dce3a35a3d10c9b5..aeb5c1e1fe3b8a65bacf6356fdd4bef96e5c642d 100644 (file)
--- a/lily/figured-bass-engraver.cc
+++ b/lily/figured-bass-engraver.cc
@@ -70,7 +70,7 @@ Figured_bass_engraver::process_music ()
     {
       figure_ = make_item ("BassFigure");
       announce_grob(figure_, rest_req_->self_scm()); // todo
-      figure_->set_grob_property ("text" , scm_makfrom0str ("-"));
+      figure_->set_property ("text" , scm_makfrom0str ("-"));
     }
   else if (figures_.size ())
     {
@@ -85,7 +85,7 @@ Figured_bass_engraver::process_music ()
          SCM markup = scm_call_2 (proc, l, daddy_context_->self_scm ());
 
          figure_ = make_item ("BassFigure");
-         figure_->set_grob_property ("text", markup);
+         figure_->set_property ("text", markup);
          announce_grob(figure_, figures_[0]->self_scm()); // todo
        }
     }