diff options
| author | Urs Liska <ul@openlilylib.org> | 2016-01-19 10:40:13 +0100 |
|---|---|---|
| committer | Urs Liska <ul@openlilylib.org> | 2016-01-24 21:24:09 +0100 |
| commit | 60e2159ae8e7c6c6da0f2ecccc0cd05d3eaf7b55 (patch) | |
| tree | 7054958bc978b6e8a946d2ba77457329e93dd99a /scm | |
| parent | e426ea7b5af83739ab2f3a255e8cbac55b16e6ec (diff) | |
#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.
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/lily.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |