]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/music-sequence.cc
* lily/beam.cc: read grow-direction for feathered beaming.
[lilypond.git] / lily / music-sequence.cc
index 69b9343650fd44612e92768939c3019acc312468..8a2915ad10c8d2c4bbbb54124b3f4d08f42708bb 100644 (file)
@@ -47,8 +47,13 @@ Music_sequence::maximum_length (SCM l)
   for (SCM s = l; scm_is_pair (s); s = scm_cdr (s))
     {
       Music *m = unsmob_music (scm_car (s));
-      Moment l = m->get_length ();
-      dur = max (dur, l);
+      if (!m)
+       programming_error ("Music sequence should have music elements");
+      else
+       {
+         Moment l = m->get_length ();
+         dur = max (dur, l);
+       }
     }
 
   return dur;