From d5f9fb204d218c68122d27fc06146cfcd297e65a Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Thu, 4 Jul 2013 19:51:14 +0200 Subject: [PATCH] Reinitialize all-event-classes and all-grob-descriptions after session --- scm/define-event-classes.scm | 13 ++++++++----- scm/define-grobs.scm | 2 +- 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/scm/define-event-classes.scm b/scm/define-event-classes.scm index 05d8542b00..84f8a14798 100644 --- a/scm/define-event-classes.scm +++ b/scm/define-event-classes.scm @@ -84,12 +84,15 @@ '() event-classes)) ;; Maps event-class to a list of ancestors (inclusive) -(define-public ancestor-lookup - (let ((h (make-hash-table (length all-event-classes)))) - (for-each (lambda (ent) (hashq-set! h (car ent) ent)) - all-event-classes) - h)) +(define ancestor-lookup (make-hash-table (length all-event-classes))) +(define (ancestor-lookup-initialize) + (hash-clear! ancestor-lookup) + (for-each (lambda (ent) (hashq-set! ancestor-lookup (car ent) ent)) + all-event-classes)) + +(ancestor-lookup-initialize) +(call-after-session ancestor-lookup-initialize) ;; Each class will be defined as ;; (class parent grandparent .. ) diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm index ee71f903c7..e2b9e6acd7 100644 --- a/scm/define-grobs.scm +++ b/scm/define-grobs.scm @@ -25,7 +25,7 @@ ;; TODO: junk the meta field in favor of something more compact? -(define-public all-grob-descriptions +(define-session-public all-grob-descriptions `( (Accidental . ( -- 2.39.5