2003 -> 2004

[lilypond.git] / lily / chord-tremolo-engraver.cc

diff --git a/lily/chord-tremolo-engraver.cc b/lily/chord-tremolo-engraver.cc
index 6d4160ea66036dc7df5904197c7b4714e328f126..49d62e12de9edcd0d9f0c35577296423be4906c8 100644 (file)
--- a/lily/chord-tremolo-engraver.cc
+++ b/lily/chord-tremolo-engraver.cc
@@ -3,7 +3,7 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 2000--2003 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 2000--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 
@@ -95,7 +95,7 @@ Chord_tremolo_engraver::try_music (Music * m)
 
       int elt_count = seq ? scm_ilength (seq-> music_list ()) : 1;
 
-      if (elt_count != 2)
+      if (seq && elt_count != 2)
        {
          rp->origin ()->warning (_f ("Chord tremolo with %d elements. Must have two elements.", elt_count));
        }
@@ -123,7 +123,7 @@ Chord_tremolo_engraver::process_music ()
     {
       if (sequential_body_b_ && !beam_)
        {
-         beam_ = new Spanner (get_property ("Beam"));
+         beam_ = make_spanner ("Beam");
          beam_->set_grob_property ("chord-tremolo", SCM_BOOL_T);
 
          SCM smp = get_property ("measurePosition");
@@ -136,7 +136,7 @@ Chord_tremolo_engraver::process_music ()
        {
          if (flags_)
            {
-             stem_tremolo_ = new Item (get_property ("StemTremolo"));
+             stem_tremolo_ = make_item ("StemTremolo");
              announce_grob(stem_tremolo_, repeat_->self_scm());
              stem_tremolo_->set_grob_property ("flag-count",
                                                scm_int2num (flags_));