- Music * m = unsmob_music (scm_car (s));
- Moment l = m->get_length ();
- dur = dur >? l;
+ Music *m = unsmob_music (scm_car (s));
+ if (!m)
+ programming_error ("Music sequence should have music elements");
+ else
+ {
+ Moment l = m->get_length ();
+ dur = max (dur, l);
+ }
- Music* me = unsmob_music (m);
- return maximum_length (me->get_property ("elements")).smobbed_copy();
+ Music *me = unsmob_music (m);
+ return maximum_length (me->get_property ("elements")).smobbed_copy ();
- Music* me = unsmob_music (m);
- return cumulative_length (me->get_property ("elements")).smobbed_copy();
+ Music *me = unsmob_music (m);
+ return cumulative_length (me->get_property ("elements")).smobbed_copy ();
- Music* me = unsmob_music (m);
- return minimum_start (me->get_property ("elements")).smobbed_copy();
+ Music *me = unsmob_music (m);
+ return minimum_start (me->get_property ("elements")).smobbed_copy ();
-
- for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
- {
- m = m <? unsmob_music (scm_car (s))->start_mom ();
- }
+
+ for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
+ m = min (m, unsmob_music (scm_car (s))->start_mom ());
Moment l = mus->get_length ();
Moment s = mus->start_mom ();
if (l.to_bool () || s.to_bool ())
Moment l = mus->get_length ();
Moment s = mus->start_mom ();
if (l.to_bool () || s.to_bool ())
copied = ly_music_deep_copy (elts);
Pitch retval = music_list_to_relative (elts, p, false);
copied = ly_music_deep_copy (elts);
Pitch retval = music_list_to_relative (elts, p, false);
Pitch retval_1_8 = music_list_to_relative (copied, p, true);
if (retval_1_8 != retval)
lily_1_8_compatibility_used = true;
Pitch retval_1_8 = music_list_to_relative (copied, p, true);
if (retval_1_8 != retval)
lily_1_8_compatibility_used = true;
return music_list_to_relative (me->get_property ("elements"),
p, true).smobbed_copy ();
}
return music_list_to_relative (me->get_property ("elements"),
p, true).smobbed_copy ();
}