diff options
| author | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2006-08-08 19:56:55 +0000 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2006-08-08 19:56:55 +0000 |
| commit | e93d8c812c66f040fe997488b4c83e1b89e28e87 (patch) | |
| tree | 48bec14e0b5c9b10d98d031102f9ace9516fabf0 /scm | |
| parent | 2134d51fa820c56ac7d5b84038b5a071cbf17a53 (diff) | |
* 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
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/define-event-classes.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |