diff options
| author | Jan Nieuwenhuizen <janneke@gnu.org> | 2005-06-01 07:56:41 +0000 |
|---|---|---|
| committer | Jan Nieuwenhuizen <janneke@gnu.org> | 2005-06-01 07:56:41 +0000 |
| commit | 81a9b4135c214a7a05bc82904395a007ad77766c (patch) | |
| tree | f5a6566983f563223dfb58f97d6331a8c244db61 /scm/lily.scm | |
| parent | 7028df86b83ecf1238baf11a2db102d15219a2ec (diff) | |
(PLATFORM, slashify): Remove double slashes.
Diffstat (limited to 'scm/lily.scm')
| -rw-r--r-- | scm/lily.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/scm/lily.scm b/scm/lily.scm index e427012ad1..2ed241a645 100644 --- a/scm/lily.scm +++ b/scm/lily.scm @@ -95,9 +95,11 @@ ((windows) (define native-getcwd getcwd) (define (slashify x) - (if (string-index x #\/) + (if (string-index x #\\) x - (string-regexp-substitute "\\\\" "/" x))) + (string-regexp-substitute + "//*" "/" + (string-regexp-substitute "\\\\" "/" x)))) ;; FIXME: this prints a warning. (define-public (ly-getcwd) (slashify (native-getcwd)))) |