(SCM x),
"Return the Scheme function inside@tie{}@var{x}.")
{
- LY_ASSERT_TYPE (Music_function::unsmob, x, 1);
+ LY_ASSERT_SMOB (Music_function, x, 1);
- return Music_function::unsmob (x)->get_function ();
+ return unsmob<Music_function> (x)->get_function ();
}
LY_DEFINE (ly_music_function_signature, "ly:music-function-signature", 1, 0, 0,
(SCM x),
"Return the function signature inside@tie{}@var{x}.")
{
- LY_ASSERT_TYPE (Music_function::unsmob, x, 1);
+ LY_ASSERT_SMOB (Music_function, x, 1);
- return Music_function::unsmob (x)->get_signature ();
+ return unsmob<Music_function> (x)->get_signature ();
}
LY_DEFINE (ly_make_music_function, "ly:make-music-function", 2, 0, 0,