From 60e2159ae8e7c6c6da0f2ecccc0cd05d3eaf7b55 Mon Sep 17 00:00:00 2001
From: Urs Liska
Date: Tue, 19 Jan 2016 10:40:13 +0100
Subject: [PATCH] #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.
---
scm/lily.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/scm/lily.scm b/scm/lily.scm
index c670eb15bf..eb487d33e9 100644
--- 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
--
2.39.2