+
+void
+Music_sequence::compress_list (SCM l, Moment m)
+{
+ for (SCM s = l; gh_pair_p (s); s = ly_cdr (s))
+ unsmob_music (ly_car (s))->compress (m);
+}
+
+ADD_MUSIC (Music_sequence);
+
+Music_sequence::Music_sequence ()
+ : Music (SCM_EOL)
+{
+
+}
+
+Moment
+Music_sequence::minimum_start (SCM l)
+{
+ Moment m;
+
+ for (SCM s = l; gh_pair_p (s); s = ly_cdr (s))
+ {
+ m = m <? unsmob_music (ly_car (s))->start_mom ();
+ }
+ return m;
+}
+
+Moment
+Music_sequence::first_start (SCM l)
+{
+ Moment m;
+
+ for (SCM s = l; gh_pair_p (s); s = ly_cdr (s))
+ {
+ Music * mus = unsmob_music (ly_car (s));
+ Moment l = mus->length_mom ();
+ Moment s = mus->start_mom ();
+ if (l.to_bool () || s.to_bool ())
+ return s;
+ }
+ return m;
+}
+