(SCM x),
"Return the Scheme function inside @var{x}")
{
- SCM_ASSERT_TYPE(is_music_function (x), x, SCM_ARG1, __FUNCTION__,
- "music function");
+ LY_ASSERT_FIRST_TYPE(is_music_function, x);
return SCM_CELL_OBJECT_1(x);
}
"Its arguments. @code{signature} is a list containing either "
"@code{ly:music?} predicates or other type predicates.")
{
- SCM_ASSERT_TYPE(ly_is_procedure (func), func, SCM_ARG1, __FUNCTION__, "function");
+ LY_ASSERT_FIRST_TYPE(ly_is_procedure, func);
return make_music_function (signature, func);
}