From: David Kastrup <dak@gnu.org>
Date: Sun, 13 Jul 2014 11:02:18 +0000 (+0200)
Subject: Fix ly:make-stream-event to receive a symbol list rather than a symbol as event class
X-Git-Tag: release/2.19.11-1~22
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c31c47b6707c59dc0b133609ad388e698317b67b;p=lilypond.git

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 27f6b811e6..2a3dfa3cd1 100644
--- 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);