*** empty log message ***

[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 78b6a06590f9fe53b77961bf21904585b350f0b5..4cf8465f3fcc1819e0645646c1bc78be58ead8d8 100644 (file)
--- a/lily/hara-kiri-group-spanner.cc
+++ b/lily/hara-kiri-group-spanner.cc
@@ -32,7 +32,7 @@ Hara_kiri_group_spanner::consider_suicide (Grob*me)
 {
   Spanner*sp = dynamic_cast<Spanner*> (me);
   SCM worth = me->get_property ("items-worth-living");
-  if (ly_pair_p (worth))
+  if (ly_c_pair_p (worth))
     return ;
 
   if (!to_boolean (me->get_property ("remove-first"))