]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/multi-measure-rest.cc
* lily/stencil-scheme.cc (ly:stencil-expr): Rename (was:
[lilypond.git] / lily / multi-measure-rest.cc
index a7625e3c1964295495e292dd0932c6d304ab6db3..61bbf1f84d8991f5ba86b7abe0c5c5a983aa7aa8 100644 (file)
@@ -102,7 +102,7 @@ Multi_measure_rest::print (SCM smob)
 
   int measures = 0;
   SCM m (me->get_property ("measure-count"));
-  if (ly_number_p (m))
+  if (ly_c_number_p (m))
     {
       measures = ly_scm2int (m);
     }
@@ -118,7 +118,7 @@ Multi_measure_rest::symbol_stencil (Grob *me, Real space)
 {
   int measures = 0;
   SCM m (me->get_property ("measure-count"));
-  if (ly_number_p (m))
+  if (ly_c_number_p (m))
     {
       measures = ly_scm2int (m);
     }
@@ -282,7 +282,7 @@ Multi_measure_rest::church_rest (Grob*me, Font_metric *musfont, int measures,
     }
   
   Stencil mol; 
-  for (SCM  s = mols; ly_pair_p (s); s = ly_cdr (s))
+  for (SCM  s = mols; ly_c_pair_p (s); s = ly_cdr (s))
     {
       mol.add_at_edge (X_AXIS, LEFT, *unsmob_stencil (ly_car (s)), inner_padding, 0);
     }