X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftweak-registration-scheme.cc;h=7770d9b13cbea451bffd1f54a8d1779099a21e13;hb=c98b4dc03abd0e96c0303f7e3b250c5f244a1208;hp=694f4e4451d765f704c3def7f49779185b375531;hpb=a999ec6e8af5951c122366fc5a80d66cec2ff6f0;p=lilypond.git

diff --git a/lily/tweak-registration-scheme.cc b/lily/tweak-registration-scheme.cc
index 694f4e4451..7770d9b13c 100644
--- a/lily/tweak-registration-scheme.cc
+++ b/lily/tweak-registration-scheme.cc
@@ -26,7 +26,7 @@ LY_DEFINE (ly_grob_insert_tweak, "ly:grob-insert-tweak",
   Grob *gr = unsmob_grob (grob);
   SCM_ASSERT_TYPE (gr, grob, SCM_ARG1, __FUNCTION__, "Grob");
   SCM_ASSERT_TYPE (scm_list_p (tweak) == SCM_BOOL_T
-		   && ly_c_procedure_p (scm_car (tweak)),
+		   && ly_is_procedure (scm_car (tweak)),
 		   tweak, SCM_ARG2, __FUNCTION__, "Tweak");
 
   global_registry_->insert_grob_tweak (gr, tweak);
@@ -41,7 +41,7 @@ LY_DEFINE (ly_grob_replace_tweak, "ly:grob-replace-tweak",
   Grob *gr = unsmob_grob (grob);
   SCM_ASSERT_TYPE (gr, grob, SCM_ARG1, __FUNCTION__, "Grob");
   SCM_ASSERT_TYPE (scm_list_p (tweak) == SCM_BOOL_T
-		   && ly_c_procedure_p (scm_car (tweak)),
+		   && ly_is_procedure (scm_car (tweak)),
 		   tweak, SCM_ARG2, __FUNCTION__, "Tweak");
 
   global_registry_->replace_grob_tweak (gr, tweak);