From c31c47b6707c59dc0b133609ad388e698317b67b Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Sun, 13 Jul 2014 13:02:18 +0200 Subject: [PATCH] Fix ly:make-stream-event to receive a symbol list rather than a symbol as event class --- lily/stream-event-scheme.cc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- 2.39.2