From e93d8c812c66f040fe997488b4c83e1b89e28e87 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 8 Aug 2006 19:56:55 +0000 Subject: * scm/define-event-classes.scm (lambda): use ly:is-listened-event-class * lily/ly-module.cc (ly_module_symbols): use ly_hash_table_keys * lily/translator.cc (LY_DEFINE): ly:is-listened-event-class: new function. Use hash tables to check membership. * lily/general-scheme.cc (LY_DEFINE): new function. * lily/piano-pedal-engraver.cc (struct Pedal_type_info): idem * lily/include/translator.hh (struct Acknowledge_information): add Protected_scm --- scm/define-event-classes.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'scm') diff --git a/scm/define-event-classes.scm b/scm/define-event-classes.scm index 3bb654ada0..c98d603cf6 100644 --- 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 -- cgit v1.2.3