From: David Kastrup <dak@gnu.org>
Date: Wed, 19 Oct 2011 19:54:13 +0000 (+0200)
Subject: define-event-classes.scm: Stop define-event-class from returning random value.
X-Git-Tag: release/2.15.15-1~26
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d56c4e84eea16bfcac284f3b4ec363edf99a72d8;p=lilypond.git

define-event-classes.scm: Stop define-event-class from returning random value.
---

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)