#4746: Fix is-absolute? on Windows

is-absolute? only looked for "?:/" and not for "?:\" to determine
the drive letter on Windows. Therefore
#(display (is-absolute? (ly-getcwd))) erroneously returned #f on Windows.

diff --git a/scm/lily.scm b/scm/lily.scm
index c670eb15bf31e90ac6218fe08df33ebcd9e31847..eb487d33e9f0cc19c4443105c4b1d8c6fc26fd32 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -507,7 +507,8 @@ messages into errors.")
             (and (eq? PLATFORM 'windows)
                  (> file-name-length 2)
                  (eq? (string-ref file-name 1) #\:)
-                 (eq? (string-ref file-name 2) #\/))))))
+                 (or (eq? (string-ref file-name 2) #\\)
+                     (eq? (string-ref file-name 2) #\/)))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; If necessary, emulate Guile V2 module_export_all! for Guile V1.8.n