release: 1.1.42

[lilypond.git] / lily / music-list.cc

diff --git a/lily/music-list.cc b/lily/music-list.cc
index 656798d3cad2d591022ced217e2cc75a5ac2f7ed..d3949b67238bee286a31a25789e5d10dc27daa18 100644 (file)
--- a/lily/music-list.cc
+++ b/lily/music-list.cc
@@ -16,13 +16,11 @@
 Moment
 Simultaneous_music::length_mom () const
 {
-  Moment dur = 0;
-  for (Cons<Music> *i = music_p_list_p_->head_; i;  i = i->next_)
-    dur = dur >? i->car_->length_mom ();
-
-  return dur;
+  return maximum_length ();
 }
 
+
+
 void
 Music_sequence::compress (Moment m)
 {
@@ -44,12 +42,7 @@ Sequential_music::Sequential_music(Music_list *p)
 Moment
 Sequential_music::length_mom () const
 {
-  Moment last=0;
-  for (Cons<Music> *i = music_p_list_p_->head_; i;  i = i->next_)
-    {
-      last += i->car_->length_mom ();
-    }
-  return  last;
+  return cumulative_length ();
 }
 
 Musical_pitch