]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/simple-spacer.cc
* lily/include/lily-guile.hh: is_x -> ly_c_X_p naming.
[lilypond.git] / lily / simple-spacer.cc
index 3682dc1443ef02ef82bd2f696d1e1b554634bb88..8aab99bc4fa19410f4cd280b988055f8baa81fc2 100644 (file)
@@ -369,7 +369,7 @@ Simple_spacer::solve (Column_x_positions *positions, bool ragged)
   for (int i = sz; i--; )
     {
       SCM p = positions->cols_[i]->get_property ( "penalty");
-      if (is_number (p))
+      if (ly_c_number_p (p))
        {
          if (ly_scm2double (p) < -9999)
            break_satisfy = break_satisfy && (i == 0 || i == sz -1);