From c8be49609099ffca541f95b827a41179cbe83080 Mon Sep 17 00:00:00 2001 From: Stuart Sierra Date: Thu, 11 Feb 2010 12:01:00 -0500 Subject: c.c.io: fix backslash handling in file-str --- src/main/clojure/clojure/contrib/io.clj | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/main/clojure/clojure/contrib/io.clj b/src/main/clojure/clojure/contrib/io.clj index 415073e4..c303cb73 100644 --- a/src/main/clojure/clojure/contrib/io.clj +++ b/src/main/clojure/clojure/contrib/io.clj @@ -89,7 +89,8 @@ the path with the user.home system property." [& args] (let [#^String s (apply str args) - s (.replaceAll (re-matcher #"[/\\]" s) File/separator) + s (.replace s \\ File/separatorChar) + s (.replace s \/ File/separatorChar) s (if (.startsWith s "~") (str (System/getProperty "user.home") File/separator (subs s 1)) -- cgit v1.2.3-18-g5258