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);
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);
LY_DEFINE (ly_tweak_read_tweaks, "ly:tweak-define-tweaks",
1, 0, 0, (SCM tweaks),
- "Read tweaks")
+ "Read tweaks")
{
for (SCM s = tweaks; scm_is_pair (s); s = scm_cdr (s))
global_registry_->insert_tweak_from_file (scm_car (s));