* scm/define-event-classes.scm (lambda): use ly:is-listened-event-class

[lilypond.git] / scm / define-event-classes.scm

diff --git a/scm/define-event-classes.scm b/scm/define-event-classes.scm
index 3bb654ada06ef58d2368bda69161d480650f7ccb..c98d603cf646ccbde41ae09a230e3dcc7064bd0b 100644 (file)
--- a/scm/define-event-classes.scm
+++ b/scm/define-event-classes.scm
@@ -105,11 +105,12 @@
 ;; available translators; print warnings otherwise.
 (map-tree (lambda (sym) 
            (if (and (symbol? sym)
-                    (not (memq sym (ly:get-listened-event-classes)))
+                    (not (ly:is-listened-event-class sym))
                     (not (assq sym event-classes))
                     (not (memq sym unlistened-music-event-classes)))
                (ly:programming-error (_ "event class ~A seems to be unused") sym)))      
          music-event-tree)
+
 (map (lambda (sym)
        (if (not (pair? (ly:make-event-class sym)))
           ;; should be programming-error