From 81a9b4135c214a7a05bc82904395a007ad77766c Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Wed, 1 Jun 2005 07:56:41 +0000 Subject: [PATCH] (PLATFORM, slashify): Remove double slashes. --- ChangeLog | 4 ++++ scm/lily.scm | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index c00a86cb2c..380c3d2ecc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2005-06-01 Jan Nieuwenhuizen + + * scm/lily.scm (PLATFORM, slashify): Remove double slashes. + 2005-06-01 Han-Wen Nienhuys * input/mutopia/R.Schumann/romanze-op28-2.ly (leftb): bugfix. 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)))) -- 2.39.5