patch::: 1.3.50.jcn1

[lilypond.git] / scm / chord-names.scm

diff --git a/scm/chord-names.scm b/scm/chord-names.scm
index 738fdb4abed7e69bfb725f25e60fc8c2762b4af3..a7ef7bf2768ac4855a2705ebef83d88b0328ff94 100644 (file)
--- a/scm/chord-names.scm
+++ b/scm/chord-names.scm
@@ -10,6 +10,11 @@
    (ice-9 regex)
    )
 
+;; The regex module may not be available, or may be broken.
+(define use-regex
+  (let ((os (string-downcase (vector-ref (uname) 0))))
+    (not (equal? "cygwin" (substring os 0 (min 6 (string-length os)))))))
+
 ;;
 ;; (octave notename accidental)
 ;;
@@ -249,7 +254,8 @@
     (apply append (pitch->text-banter tonic)
           (if user-name user-name '())
           ;; why does list->string not work, format seems only hope...
-          (if (and (string-match "super" (format "~s" user-name))
+          (if (and use-regex
+                   (string-match "super" (format "~s" user-name))
                    (or (pair? additions)
                        (pair? subtractions)))
               '(("/" (type . "super")))