Index: scm/output-lib.scm |
diff --git a/scm/output-lib.scm b/scm/output-lib.scm |
index 46d085ef8f62212a0b022916ec12019f3a48095e..5184fdb3377fae3444b6d3a6b40a3d7075ab7611 100644 |
--- a/scm/output-lib.scm |
+++ b/scm/output-lib.scm |
@@ -1205,7 +1205,7 @@ and draws the stencil based on its coordinates. |
;; outer let to trigger suicide |
(let ((sten (ly:hairpin::print grob))) |
(if (grob::is-live? grob) |
- (let* ((decresc? (eq? (ly:grob-property grob 'grow-direction) LEFT)) |
+ (let* ((decresc? (eqv? (ly:grob-property grob 'grow-direction) LEFT)) |
(thick (ly:grob-property grob 'thickness 0.1)) |
(thick (* thick (layout-line-thickness grob))) |
(xex (ly:stencil-extent sten X)) |