diff options
| -rw-r--r-- | src/main/clojure/clojure/contrib/io.clj | 3 |
1 files changed, 2 insertions, 1 deletions
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)) |