-
-Music*
-Music_wrapper::element () const
-{
- return unsmob_music (get_mus_property ("element"));
-}
-
-void
-Music_wrapper::compress (Moment m)
-{
- element ()->compress (m);
-}
-
-ADD_MUSIC (Music_wrapper);
-
-Music_wrapper::Music_wrapper ()
- : Music (SCM_EOL)
-{
-
-}
-
-Moment
-Music_wrapper::start_mom () const
-{
- return element ()->start_mom ();
-}