Change class field in stream events to contain the complete event type list

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index bb8f4ddf50d96c80bdece61ebb473d1d36604396..95fefbdb3a856eba58842d315401551f1d6ab77f 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -900,7 +900,7 @@ and duration-log @var{log}."
 ;; dynamics
 
 (define-public (hairpin::calc-grow-direction grob)
-  (if (eq? (ly:event-property (event-cause grob) 'class) 'decrescendo-event)
+  (if (ly:in-event-class? (event-cause grob) 'decrescendo-event)
       START
       STOP))