*** empty log message ***

[lilypond.git] / lily / spaceable-grob.cc

diff --git a/lily/spaceable-grob.cc b/lily/spaceable-grob.cc
index 9f91c7036731093b42a4ea782dbb6d5d5018058f..5477f624ade6ab2a732bff15b9484c1339e5aca5 100644 (file)
--- a/lily/spaceable-grob.cc
+++ b/lily/spaceable-grob.cc
@@ -31,7 +31,7 @@ Spaceable_grob::add_rod (Grob *me , Grob * p, Real d)
   
   SCM mins = get_minimum_distances (me);
   SCM newdist = scm_make_real (d);
-  for (SCM s = mins; ly_pair_p (s); s = ly_cdr (s))
+  for (SCM s = mins; ly_c_pair_p (s); s = ly_cdr (s))
     {
       SCM dist = ly_car (s);
       if (ly_car (dist) == p->self_scm ())
@@ -70,7 +70,7 @@ Spaceable_grob::add_spring (Grob*me, Grob * p, Real d, Real strength, bool expan
     
 #ifndef NDEBUG
   SCM mins = me->get_property ("ideal-distances");
-  for (SCM s = mins; ly_pair_p (s); s = ly_cdr (s))
+  for (SCM s = mins; ly_c_pair_p (s); s = ly_cdr (s))
     {
       Spring_smob * sp = unsmob_spring(ly_car (s));
       if (sp->other_ == p)