-/*
- Ugh this sucks. Linear. do not use.
- */
-void
-Music_sequence::append_music (Music *m)
-{
- set_mus_property ("list",
- gh_append2( music_list(), gh_cons (m->self_scm_, SCM_EOL)));
-}
-Music_sequence::Music_sequence(SCM h)
+MAKE_SCHEME_CALLBACK (Music_sequence, cumulative_length_callback, 1);
+SCM
+Music_sequence::cumulative_length_callback (SCM m)