Change class field in stream events to contain the complete event type list

[lilypond.git] / lily / music.cc

diff --git a/lily/music.cc b/lily/music.cc
index 7927fe3067cc8b855743e6e5c5ad06ae5c1b18a9..e96e83d59fa14016a3afc10b14c5b63fbcc7dd6e 100644 (file)
--- a/lily/music.cc
+++ b/lily/music.cc
@@ -279,7 +279,9 @@ Music::to_event () const
   if (!internal_is_music_type (class_name))
     programming_error ("Not a music type");
 
-  Stream_event *e = new Stream_event (class_name, mutable_property_alist_);
+  Stream_event *e = new Stream_event
+    (scm_call_1 (ly_lily_module_constant ("ly:make-event-class"), class_name),
+     mutable_property_alist_);
   Moment length = get_length ();
   if (length.to_bool ())
     e->set_property ("length", length.smobbed_copy ());