-bool
-is_music_function (SCM music_function)
-{
- return (SCM_NIMP (music_function) && SCM_CELL_TYPE (music_function) == music_function_tag);
-}
-
-SCM
-get_music_function_transform (SCM music_function)
-{
- if (!is_music_function (music_function))
- return SCM_UNDEFINED;
-
- return SCM_CELL_OBJECT_1 (music_function);
-}
-
-static void
-init_music_function (void)
-{
- music_function_tag = scm_make_smob_type ("music-function", 0);
- scm_set_smob_mark (music_function_tag, scm_markcdr);
- scm_set_smob_print (music_function_tag, print_music_function);
-}
-