-bool
-is_music_function (SCM music_function)
-{
- return Musicfunction::unsmob (music_function);
-}
-
-SCM
-get_music_function_transform (SCM music_function)
-{
- if (!is_music_function (music_function))
- return SCM_UNDEFINED;
-
- return Musicfunction::unsmob (music_function)->get_function ();
-}
-
-SCM
-make_music_function (SCM signature, SCM func)
-{
- return Musicfunction (signature, func).smobbed_copy ();
-}
-
-SCM
-get_music_function_signature (SCM music_function)
-{
- if (!is_music_function (music_function))
- return SCM_UNDEFINED;
-
- return Musicfunction::unsmob (music_function)->get_signature ();
-}
-