* 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 c15ebaf2dbb29a36ddd931bd0db956f09e99f4e7..35db3471c8a55e058d765973fe2702379e9fe82d 100644 (file)
--- a/lily/music-sequence.cc
+++ b/lily/music-sequence.cc
@@ -11,8 +11,8 @@
 #include "pitch.hh"
 #include "input.hh"
 
-Music_sequence::Music_sequence ()
-  : Music ()
+Music_sequence::Music_sequence (SCM x)
+  : Music (x)
 {
 }
 
@@ -22,17 +22,6 @@ Music_sequence::music_list () const
   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 ());
-}
-
 void
 transpose_music_list (SCM lst, Pitch rq)
 {