X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-lib.scm;h=95fefbdb3a856eba58842d315401551f1d6ab77f;hb=e6e664d1bd2b125f6e34d47f7b7e69271865343a;hp=17bbea995b1f7c7bf03005b4ffffea2d6c9fd221;hpb=ebe492ca408fb0d9abf80b94c56197eef8dc2f09;p=lilypond.git

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 17bbea995b..95fefbdb3a 100644
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -434,7 +434,7 @@ and duration-log @var{log}."
       (cons -0.1 0.1)))
 
 (define-public (pure-from-neighbor-interface::extra-spacing-height grob)
-  (let* ((height (ly:grob::stencil-height grob))
+  (let* ((height (ly:grob-pure-height grob grob 0 10000000))
          (from-neighbors (interval-union
                             height
                             (ly:axis-group-interface::pure-height
@@ -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))