make sure that right bound of slur exists.

[lilypond.git] / lily / quote-iterator.cc

diff --git a/lily/quote-iterator.cc b/lily/quote-iterator.cc
index dead1d503e25466cf3e6dbe541f74662a11e244f..c55aae34285f006177111621362ee3a4b9ea1cd6 100644 (file)
--- a/lily/quote-iterator.cc
+++ b/lily/quote-iterator.cc
@@ -15,7 +15,6 @@
 #include "lily-guile.hh"
 #include "music-sequence.hh"
 #include "music.hh"
-#include "stream-event.hh"
 #include "warn.hh"
 
 class Quote_iterator : public Music_wrapper_iterator
@@ -245,7 +244,8 @@ Quote_iterator::process (Moment m)
                    mp = *me_pitch;
 
                  Pitch diff = pitch_interval (qp, mp);
-
+                 ev = ev->clone ();
+                 
                  SCM props =  transpose_mutable (ev->get_property_alist (true), diff);
                  ev = new Stream_event (ev->get_property ("class"), props);
                  transposed_musics_ = scm_cons (ev->unprotect (), transposed_musics_);