Fix ly:make-stream-event to receive a symbol list rather than a symbol as event class

diff --git a/lily/stream-event-scheme.cc b/lily/stream-event-scheme.cc
index 27f6b811e6157dd1514b883d03ca90edbd0710c6..2a3dfa3cd10ee70bcc340a8c673ee463c033cd5a 100644 (file)
--- a/lily/stream-event-scheme.cc
+++ b/lily/stream-event-scheme.cc
@@ -31,7 +31,7 @@ LY_DEFINE (ly_make_stream_event, "ly:make-stream-event",
            "Create a stream event of class @var{cl} with the given"
            " mutable property list.")
 {
-  LY_ASSERT_TYPE (ly_is_symbol, cl, 1);
+  LY_ASSERT_TYPE (ly_is_pair, cl, 1);
 
   /* should be scm_list_p, but scm_list_p is expensive. */
   LY_ASSERT_TYPE (scm_is_pair, proplist, 2);