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