]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/dispatcher.cc
item.cc: make is_non_musical() conform to its name. issue 2060
[lilypond.git] / lily / dispatcher.cc
index 0e3ad8998e842031d02d4a6bc7aca4feac65f247..6a11654e233465ea6a59de9947b8c28aba33f3f4 100644 (file)
@@ -77,7 +77,7 @@ Dispatcher::dispatch (SCM sev)
 {
   Stream_event *ev = unsmob_stream_event (sev);
   SCM class_symbol = ev->get_property ("class");
-  if (!scm_symbol_p (class_symbol))
+  if (!scm_is_symbol (class_symbol))
     {
       warning (_ ("Event class should be a symbol"));
       return;