X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Flily.scm;h=b345d1562dc78e8fa766584178e1e4eb33c9b904;hb=23d508c591303b53df9c6e4c6394e741c50c1630;hp=ecca25e01ee9a64d9e995059fb2b9d814232ed98;hpb=cfa671f1b5786331989bce25203eed7ba3069bcc;p=lilypond.git

diff --git a/scm/lily.scm b/scm/lily.scm
index ecca25e01e..b345d1562d 100644
--- 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) "")