From 170ef4ad178d53267e48bccebb548bc5bcf40a0d Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Tue, 26 Mar 2002 23:21:53 +0000
Subject: [PATCH] lilypond-1.3.51

---
 scm/chord-names.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/scm/chord-names.scm b/scm/chord-names.scm
index 738fdb4abe..a7ef7bf276 100644
--- 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")))
-- 
2.39.5