release: 1.3.153

[lilypond.git] / scm / output-lib.scm

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index e3a9ad11acda9d28910affd5cf7ab47fd32040e3..a5364c45e86924d536d1f49b81899bb3e6eff25a 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -68,6 +68,7 @@
    ((baroque) 
     (string-append (number->string duration)
                   (if (< duration 0) "mensural" "")))
+   ((mensural) (string-append (number->string duration) (symbol->string style)))
    ((default) (number->string duration))
    (else
     (string-append (number->string (max 0 duration)) (symbol->string style)))))