patch::: 1.3.39.jcn2

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index ecca25e01ee9a64d9e995059fb2b9d814232ed98..b345d1562dc78e8fa766584178e1e4eb33c9b904 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -17,8 +17,12 @@
 
 (use-modules (ice-9 regex))
 
-(define use-regex
-  (not (string-match ".*windows.*" (string-downcase (vector-ref (uname) 0)))))
+;; The regex module may not be available, or may be broken.
+;; If you have trouble with regex, define #f
+(define use-regex #t)
+;;(define use-regex #f)
+;;(define use-regex
+;;  (not (equal? "Windows" (substring (vector-ref (uname) 0) 0 7))))
 
 ;; do nothing in .scm output
 (define (comment s) "")