source file of the GNU LilyPond music typesetter
- (c) 1998--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1998--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
}
-Music_wrapper::Music_wrapper(Music*p)
+Music_wrapper::Music_wrapper (SCM l)
+ : Music (l)
{
- set_mus_property ("element", p->self_scm ());
- scm_unprotect_object (p->self_scm ());
}
Moment
{
element ()->compress (m);
}
+
+ADD_MUSIC (Music_wrapper);
+
+Music_wrapper::Music_wrapper ()
+ : Music (SCM_EOL)
+{
+
+}
+
+Moment
+Music_wrapper::start_mom () const
+{
+ return element ()->start_mom ();
+}