(LY_DEFINE): use Scheme style naming for

[lilypond.git] / lily / separating-line-group-engraver.cc

diff --git a/lily/separating-line-group-engraver.cc b/lily/separating-line-group-engraver.cc
index 9f24a4d8234fc58adb11bbd0c438b1656f8d9b7f..59fdc721196d1484414774c876510bbcf66f2d26 100644 (file)
--- a/lily/separating-line-group-engraver.cc
+++ b/lily/separating-line-group-engraver.cc
@@ -120,7 +120,7 @@ Separating_line_group_engraver::acknowledge_grob (Grob_info i)
     return;
 
   
-  if (to_boolean (it->get_grob_property ("no-spacing-rods")))
+  if (to_boolean (it->get_property ("no-spacing-rods")))
     return ;
 
   if (Note_spacing::has_interface (it)) 
@@ -139,7 +139,7 @@ Separating_line_group_engraver::acknowledge_grob (Grob_info i)
 
       if (ib)
        {
-         p_ref_->set_grob_property ("breakable", SCM_BOOL_T);
+         p_ref_->set_property ("breakable", SCM_BOOL_T);
          daddy_context_->set_property ("breakableSeparationItem", p_ref_->self_scm ());
        }
       announce_grob(p_ref_, SCM_EOL);
@@ -148,7 +148,7 @@ Separating_line_group_engraver::acknowledge_grob (Grob_info i)
        {
          Item *it  = make_item ("StaffSpacing");
          current_spacings_.staff_spacing_ = it;
-         it->set_grob_property ("left-items", gh_cons (break_item_->self_scm (), SCM_EOL));
+         it->set_property ("left-items", gh_cons (break_item_->self_scm (), SCM_EOL));
          
          announce_grob(it, SCM_EOL);
 
@@ -163,7 +163,7 @@ Separating_line_group_engraver::acknowledge_grob (Grob_info i)
          else if (last_spacings_.staff_spacing_)
            {
              
-             last_spacings_.staff_spacing_->set_grob_property ("right-items",
+             last_spacings_.staff_spacing_->set_property ("right-items",
                                                                gh_cons (break_item_->self_scm(), SCM_EOL));
            }
        }