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

[lilypond.git] / lily / context.cc

diff --git a/lily/context.cc b/lily/context.cc
index 34b75523ea38d3e1e2f76c68bf606c55c7e02ee7..0551b3b702701ce56da8e74f77bd84895b239799 100644 (file)
--- a/lily/context.cc
+++ b/lily/context.cc
@@ -452,7 +452,9 @@ be called from any other place than the send_stream_event macro.
 void
 Context::internal_send_stream_event (SCM type, Input *origin, SCM props[])
 {
-  Stream_event *e = new Stream_event (type, origin);
+  Stream_event *e = new Stream_event
+    (scm_call_1 (ly_lily_module_constant ("ly:make-event-class"), type),
+     origin);
   for (int i = 0; props[i]; i += 2)
     {
       e->set_property (props[i], props[i + 1]);