* lily/include/lily-guile.hh: is_x -> ly_c_X_p naming.

[lilypond.git] / lily / score-engraver.cc

diff --git a/lily/score-engraver.cc b/lily/score-engraver.cc
index 3fc44c527d00b02dd01f69a549bd86bedd92f4bd..e3bd20fb7ca1f26079827411e3998c86d74033a6 100644 (file)
--- a/lily/score-engraver.cc
+++ b/lily/score-engraver.cc
@@ -267,10 +267,10 @@ Score_engraver::try_music (Music *m)
   if (m->is_mus_type ("break-event"))
     {
       SCM pen = command_column_->get_property ("penalty");
-      Real total_penalty = is_number (pen) ? ly_scm2double (pen) : 0.0;
+      Real total_penalty = ly_c_number_p (pen) ? ly_scm2double (pen) : 0.0;
 
       SCM mpen = m->get_property ("penalty");
-      if (is_number (mpen))
+      if (ly_c_number_p (mpen))
        total_penalty += ly_scm2double (mpen);
 
       command_column_->set_property ("penalty", scm_make_real (total_penalty));
@@ -280,9 +280,9 @@ Score_engraver::try_music (Music *m)
        forbid_breaks ();
 
       SCM page_pen = command_column_->get_property ("page-penalty");
-      Real total_pp = is_number (page_pen) ? ly_scm2double (page_pen) : 0.0;
+      Real total_pp = ly_c_number_p (page_pen) ? ly_scm2double (page_pen) : 0.0;
       SCM mpage_pen = m->get_property ("page-penalty");
-      if (is_number (mpage_pen))
+      if (ly_c_number_p (mpage_pen))
        total_pp += ly_scm2double (mpage_pen);
       
       command_column_->set_property ("page-penalty", scm_make_real (total_pp));