(LY_DEFINE): use Scheme style naming for

[lilypond.git] / lily / hara-kiri-group-spanner.cc

diff --git a/lily/hara-kiri-group-spanner.cc b/lily/hara-kiri-group-spanner.cc
index eacd67fd7ae5aae0c5ad8caf7b351c94f6f5baec..dabcf7c7e186d054dbb6d5fb76496acfc04d6118 100644 (file)
--- a/lily/hara-kiri-group-spanner.cc
+++ b/lily/hara-kiri-group-spanner.cc
@@ -31,11 +31,11 @@ void
 Hara_kiri_group_spanner::consider_suicide (Grob*me)
 {
   Spanner*sp = dynamic_cast<Spanner*> (me);
-  SCM worth = me->get_grob_property ("items-worth-living");
+  SCM worth = me->get_property ("items-worth-living");
   if (gh_pair_p (worth))
     return ;
 
-  if (!to_boolean (me->get_grob_property ("remove-first"))
+  if (!to_boolean (me->get_property ("remove-first"))
       && broken_spanner_index (sp) == 0)
     {
       return ;