*** empty log message ***

[lilypond.git] / lily / parser.yy

diff --git a/lily/parser.yy b/lily/parser.yy
index 15760b48af39728dcc4862a13c62c91f715f263c..23407d253976af8013448c01ac24177fa48cd132 100644 (file)
--- a/lily/parser.yy
+++ b/lily/parser.yy
@@ -5,7 +5,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 1997--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
                  Jan Nieuwenhuizen <janneke@gnu.org>
 */
 
@@ -36,8 +36,6 @@ TODO:
 #include "lilypond-input-version.hh"
 #include "main.hh"
 #include "misc.hh"
-#include "music-list.hh"
-#include "music-sequence.hh"
 #include "lily-lexer.hh"
 #include "lily-parser.hh"
 #include "paper-book.hh"
@@ -915,16 +913,16 @@ Repeated_music:
                        int dots = ($3 % 3) ? 0 : 1;
                        int shift = -intlog2 ((dots) ? ($3*2/3) : $3);
 
-                       Sequential_music *seq = dynamic_cast<Sequential_music*> ($4);
                        
-                       if (seq) {
-                               int list_len = scm_ilength (seq->music_list ());
+                       if ($4->is_mus_type ("sequential-music"))
+                       {
+                               int list_len = scm_ilength ($4->get_property ("elements"));
                                if (list_len != 2)
-                                       seq->origin ()->warning ("Chord tremolo must have 2 elements.");
+                                       $4->origin ()->warning ("Chord tremolo must have 2 elements.");
                                shift -= 1;
                                r->compress (Moment (Rational (1, list_len)));
-                               }
-                       scm_call_3 (func, r->self_scm (), scm_int2num (shift),scm_int2num (dots));
+                       }
+                       scm_call_3 (func, r->self_scm (), scm_int2num (shift), scm_int2num (dots));
 
                }
                r->set_spot (*$4->origin ());