Replace forward slash in xcopy commands.
xcopy doesn't handle them in paths.
(if is-win
(let [end (last (peg/match path-splitter src))
isdir (= (os/stat src :mode) :directory)]
- (shell "C:\\Windows\\System32\\xcopy.exe" src (if isdir (string dest "\\" end) dest) "/y" "/s" "/e" "/i"))
+ (shell "C:\\Windows\\System32\\xcopy.exe"
+ (string/replace "/" "\\" src) (string/replace "/" "\\" (if isdir (string dest "\\" end) dest))
+ "/y" "/s" "/e" "/i"))
(shell "cp" "-rf" src dest)))
(defn mkdir
