* scm/bass-figure.scm (format-bass-figure): don't set

[lilypond.git] / scm / bass-figure.scm

diff --git a/scm/bass-figure.scm b/scm/bass-figure.scm
index 4d7b19e24781f469381243377cbc931bd03aff9b..104793b86ffe57ea54dd63060cd4de6f161d15f0 100644 (file)
--- a/scm/bass-figure.scm
+++ b/scm/bass-figure.scm
@@ -16,8 +16,8 @@
         (acc  (ly:music-property fig-music 'alteration))
         (acc-markup #f)
         (fig-markup
-         (if (string? fig)
-             (make-number-markup (make-simple-markup fig))
+         (if (markup? fig)
+             fig
              (if align-accs (make-simple-markup " ")
                  (if (not (eq? acc '()))
                      (make-simple-markup "")