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

[lilypond.git] / lily / paper-book.cc

diff --git a/lily/paper-book.cc b/lily/paper-book.cc
index cf1585bcd909b5cde59d717c824de0c405e0861e..97be3c094a3fc315df90a598979b959bd2748b45 100644 (file)
--- a/lily/paper-book.cc
+++ b/lily/paper-book.cc
@@ -160,7 +160,7 @@ Paper_book::book_title ()
     scopes = scm_cons (header_, scopes);
 
   SCM tit = SCM_EOL;
-  if (ly_c_procedure_p (title_func))
+  if (ly_is_procedure (title_func))
     tit = scm_call_2 (title_func,
                      paper_->self_scm (),
                      scopes);
@@ -189,7 +189,7 @@ Paper_book::score_title (SCM header)
     scopes = scm_cons (header, scopes);
 
   SCM tit = SCM_EOL;
-  if (ly_c_procedure_p (title_func))
+  if (ly_is_procedure (title_func))
     tit = scm_call_2 (title_func,
                      paper_->self_scm (),
                      scopes);