* lily/include/music.hh (class Music): include SCM init argument.

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

diff --git a/lily/music-sequence.cc b/lily/music-sequence.cc
index 3ba671e27b23ba975464f604bb2f5b58a08e0327..35db3471c8a55e058d765973fe2702379e9fe82d 100644 (file)
--- a/lily/music-sequence.cc
+++ b/lily/music-sequence.cc
@@ -4,39 +4,28 @@
   source file of the GNU LilyPond music typesetter
   
   (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
-  
- */
+*/
+
 #include "music-list.hh"
 #include "warn.hh"
 #include "pitch.hh"
 #include "input.hh"
 
-SCM
-Music_sequence::music_list ()const
+Music_sequence::Music_sequence (SCM x)
+  : Music (x)
 {
-  return get_property ("elements");
 }
 
-/*
-  Ugh this sucks. Linear. do not use.
- */
-void
-Music_sequence::append_music (Music *m)
-{
-  set_property ("elements",
-                   ly_append2 (music_list (), scm_cons (m->self_scm (), SCM_EOL)));
-  scm_gc_unprotect_object (m->self_scm ());
-}
-
-Music_sequence::Music_sequence ( )
-  : Music ()
+SCM
+Music_sequence::music_list () const
 {
+  return get_property ("elements");
 }
 
 void
-transpose_music_list (SCM l,  Pitch rq)
+transpose_music_list (SCM lst, Pitch rq)
 {
-  for (SCM s = l; scm_is_pair (s);  s = scm_cdr (s))
+  for (SCM s = lst; scm_is_pair (s);  s = scm_cdr (s))
     unsmob_music (scm_car (s))->transpose (rq);    
 }
 
@@ -81,7 +70,7 @@ Pitch
 music_list_to_relative (SCM l,Pitch p, bool ret_first)
 {
   Pitch first = p;
-  int count=0;
+  int count = 0;
 
   Pitch last = p;
   for (SCM s = l; scm_is_pair (s);  s = scm_cdr (s))