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

[lilypond.git] / scm / define-event-classes.scm

diff --git a/scm/define-event-classes.scm b/scm/define-event-classes.scm
index c632e430a95f37a1dd184e8a8cdef5e4906ce132..ddf45a199a034d4569fd3e1be90f89cfcb564a7e 100644 (file)
--- 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)