* lily/include/lily-guile.hh: rename ly_c_X_p -> ly_is_X

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

diff --git a/lily/script-engraver.cc b/lily/script-engraver.cc
index bc001d68a7665e95842e520534a74e62735ef5ee..42a766b33945d66e4cab80b860861eb2da091481 100644 (file)
--- a/lily/script-engraver.cc
+++ b/lily/script-engraver.cc
@@ -60,7 +60,7 @@ Script_engraver::try_music (Music *m)
       /* Discard double articulations for part-combining.  */
       int script_count = scripts_.size ();
       for (int i = 0; i < script_count; i++)
-       if (ly_c_equal_p (scripts_[i].event_
+       if (ly_is_equal (scripts_[i].event_
                          ->get_property ("articulation-type"),
                          m->get_property ("articulation-type")))
          return true;
@@ -116,7 +116,7 @@ void make_script_from_event (Grob *p, bool *follow, Context *tg,
     {
       SCM sym = scm_caar (s);
       SCM type = scm_object_property (sym, ly_symbol2scm ("backend-type?"));
-      if (!ly_c_procedure_p (type))
+      if (!ly_is_procedure (type))
        continue;
 
       SCM val = scm_cdar (s);