Tomas Sauer's fix for alternatives in abc2ly.

[lilypond.git] / scm / define-markup-commands.scm

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 8f5728c31be3379771f6229b1cde465f4f68f2e3..aef9e3aa284eeab47ca7a76ffa09c0416f59c1fe 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -1273,7 +1273,7 @@ figured bass notation"
                                                         (number->string log)))
                        (cons (+ (car attach-off) (/ stem-thickness 2)) stemy)))))
 
-    (if (and flaggl (> dir 0))
+    (if (and dots flaggl (> dir 0))
        (set! dots (ly:stencil-translate-axis dots 0.35 X)))
     (if flaggl
         (set! stem-glyph (ly:stencil-add flaggl stem-glyph)))