[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-hackers] [PATCH 4/4] files split-directory: don't split on back
From: |
Florian Zumbiehl |
Subject: |
[Chicken-hackers] [PATCH 4/4] files split-directory: don't split on backslashes on non-windows |
Date: |
Fri, 15 Mar 2013 07:05:22 +0100 |
User-agent: |
Mutt/1.5.20 (2009-06-14) |
---
files.scm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/files.scm b/files.scm
index 54beacf..706d103 100644
--- a/files.scm
+++ b/files.scm
@@ -412,7 +412,7 @@ EOF
(define split-directory
(lambda (loc dir keep?)
(##sys#check-string dir loc)
- (string-split dir "/\\" keep?) ) )
+ (string-split dir (if (eq? (build-platform) 'mingw32) "/\\" "/") keep?) ) )
;; Directory string or list only contains path-separators
;; and/or current-directory (".") names.
--
1.7.2.5