From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 7 Nov 2006 11:35:14 +0000 (+0100)
Subject: another (sign dir) fix for note markup
X-Git-Tag: release/2.10.0-2~32^2~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=00ea0d1f05d99987db5c8b29fbaa8513d1df8d59;p=lilypond.git

another (sign dir) fix for note markup
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 745b42f940..71407e60cd 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -1227,7 +1227,7 @@ figured bass notation"
          (stem-glyph (and (> log 0)
 			  (ly:round-filled-box
 			   (ordered-cons (car attach-off)
-					 (+ (car attach-off)  (* (- dir) stem-thickness)))
+					 (+ (car attach-off)  (* (- (sign dir)) stem-thickness)))
 			   (cons (min stemy (cdr attach-off))
 				 (max stemy (cdr attach-off)))
 			   (/ stem-thickness 3))))