#include "event.hh"
#include "warn.hh"
-MAKE_SCHEME_CALLBACK(Event, length_callback, 1);
+MAKE_SCHEME_CALLBACK (Event, length_callback, 1);
SCM
Event::length_callback (SCM m)
{
- Music* me = unsmob_music (m);
+ Music *me = unsmob_music (m);
Duration *d = unsmob_duration (me->get_property ("duration"));
Moment mom;
{
mom = d->get_length ();
}
- return mom.smobbed_copy();
+ return mom.smobbed_copy ();
}
-
+
Event::Event (SCM i)
: Music (i)
{
ADD_MUSIC (Event);
-
-