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

create "man1" directory before trying to put a man page there

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-22 14:22:26 -06:00
parent d7d1739d4f
commit 3e53fd3a93
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/collects/setup/setup-unit.rkt
View File

@ -1464,6 +1464,8 @@
#t) #t)
(unless already? (unless already?
(delete-directory/files dest #:must-exist? #f) (delete-directory/files dest #:must-exist? #f)
(let-values ([(base name dir?) (split-path dest)])
(when (path? base) (make-directory* base)))
(if (file-exists? src) (if (file-exists? src)
(copy-file src dest) (copy-file src dest)
(copy-directory/files src dest))) (copy-directory/files src dest)))