"Return the name of @var{music}.")
{
Music *m = unsmob_music (mus);
- SCM_ASSERT_TYPE (m, mus, SCM_ARG1, __FUNCTION__ ,"music");
+ SCM_ASSERT_TYPE (m, mus, SCM_ARG1, __FUNCTION__ , "music");
char const *nm = classname (m);
return scm_makfrom0str (nm);
return m->get_property_alist (true);
}
-LY_DEFINE (ly_music_list_p,"ly:music-list?",
+LY_DEFINE (ly_music_list_p, "ly:music-list?",
1, 0, 0, (SCM lst),
"Type predicate: return true if @var{lst} is a list "
"of music objects.")
return sc->self_scm ();
}
-LY_DEFINE (ly_music_duration_length, "ly:music-duration-length", 1, 0,0,
+LY_DEFINE (ly_music_duration_length, "ly:music-duration-length", 1, 0, 0,
(SCM mus),
"Extract the duration field from @var{mus}, and return the length.")
{
}
-LY_DEFINE (ly_music_duration_compress, "ly:music-duration-compress", 2, 0,0,
+LY_DEFINE (ly_music_duration_compress, "ly:music-duration-compress", 2, 0, 0,
(SCM mus, SCM fact),
"Compress @var{mus} by factor @var{fact}, which is a @code{Moment}.")
{