suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove a whole directory if it is in the way

Browse Source 
svn: r3008
This commit is contained in:
Eli Barzilay 2006-05-22 16:38:22 +00:00
parent 953478a41b
commit b0667481bf
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/setup/winvers.ss
View File

@ -11,8 +11,12 @@
(unless (directory-exists? vers) (make-directory vers)) (unless (directory-exists? vers) (make-directory vers))
(for-each (lambda (p) (for-each (lambda (p)
(let ([dest (build-path vers p)]) (let ([dest (build-path vers p)])
(when (file-exists? dest) (delete-file dest)) ((cond [(file-exists? dest) delete-file]
(copy-directory/files (build-path (find-console-bin-dir) p) dest))) [(directory-exists? dest) delete-directory/files]
[else void])
dest)
(copy-directory/files (build-path (find-console-bin-dir) p)
dest)))
'("mzscheme.exe" "lib")) '("mzscheme.exe" "lib"))
(build-path vers "mzscheme.exe"))) (build-path vers "mzscheme.exe")))
@ -48,4 +52,3 @@
(printf "done!~n")] (printf "done!~n")]
[else [else
(error 'winvers "unknown command line: ~e" argv)]))) (error 'winvers "unknown command line: ~e" argv)])))