source file of the GNU LilyPond music typesetter
- (c) 1999--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1999--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "repeated-music.hh"
#include "music-sequence.hh"
#include "pitch.hh"
#include "warn.hh"
-#include "scm-option.hh"
+#include "program-option.hh"
Music *
Repeated_music::body (Music *me)
return last.smobbed_copy ();
}
else
- {
- return me->generic_to_relative_octave (p).smobbed_copy ();
- }
+ return me->generic_to_relative_octave (p).smobbed_copy ();
}
Moment
{
Moment m = 0;
if (Music *body = unsmob_music (me->get_property ("element")))
- {
- m = body->get_length ();
- }
+ m = body->get_length ();
return m;
}
if (body)
return body->start_mom ().smobbed_copy ();
else
- {
- return Music_sequence::minimum_start (me->get_property ("elements")).smobbed_copy ();
- }
+ return Music_sequence::minimum_start (me->get_property ("elements")).smobbed_copy ();
}
MAKE_SCHEME_CALLBACK (Repeated_music, first_start, 1);
Music *me = unsmob_music (m);
Music *body = unsmob_music (me->get_property ("element"));
- Moment rv = (body) ? body->start_mom () :
- Music_sequence::first_start (me->get_property ("elements"));
+ Moment rv = (body) ? body->start_mom ()
+ : Music_sequence::first_start (me->get_property ("elements"));
return rv.smobbed_copy ();
}