(write-preamble): remove debugging output.

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

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index d5d9d10264b5748adcf5f3bd65dcd313ce749751..9b24de88ecef092e4925259dc34dae2ba14ad046 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -158,6 +158,10 @@
         (number->string duration)))
     ((mensural)
      (string-append (number->string duration) (symbol->string style)))
+    ((petrucci)
+     (if (< duration 0)
+        (string-append (number->string duration) "mensural")
+        (string-append (number->string duration) (symbol->string style))))
     ((neomensural)
      (string-append (number->string duration) (symbol->string style)))
     ((default)