From d56c4e84eea16bfcac284f3b4ec363edf99a72d8 Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
Date: Wed, 19 Oct 2011 21:54:13 +0200
Subject: [PATCH] define-event-classes.scm: Stop define-event-class from
 returning random value.

---
 scm/define-event-classes.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/scm/define-event-classes.scm b/scm/define-event-classes.scm
index c632e430a9..ddf45a199a 100644
--- a/scm/define-event-classes.scm
+++ b/scm/define-event-classes.scm
@@ -86,7 +86,8 @@
                      (cons leaf
                            (hashq-ref ancestor-lookup
                                       (cadr heritage)
-                                      '()))))))
+                                      '())))))
+  (begin))
 
 ;; TODO: Allow entering more complex classes, by taking unions.
 (define-public (ly:make-event-class leaf)
-- 
2.39.2