* lily/translator.cc, lily/context.cc:, lily/translator-group.cc:

[lilypond.git] / lily / slur-engraver.cc

diff --git a/lily/slur-engraver.cc b/lily/slur-engraver.cc
index fb7a9e67c68ec86425e948ce949b0c1e72ccc9d7..3ee546c3bf16aa03ae49677dbc41743482f2c7e5 100644 (file)
--- a/lily/slur-engraver.cc
+++ b/lily/slur-engraver.cc
@@ -63,9 +63,10 @@ Slur_engraver::listen_slur (Stream_event *ev)
 {
   Direction d = to_dir (ev->get_property ("span-direction"));
   if (d == START)
-    events_[START] = ev;
+    ASSIGN_EVENT_ONCE (events_[START], ev);
   else if (d == STOP)
-    events_[STOP] = ev;
+    ASSIGN_EVENT_ONCE (events_[STOP], ev);
+  else ev->origin ()->warning (_ ("Invalid direction of slur-event"));
 }
 
 void