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

raco setup: create destination doc directory if needed for move

Browse Source
This commit is contained in:
Matthew Flatt 2013-07-11 08:51:10 -06:00
parent b9fd9ad78c
commit 5c222ca078
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/racket-pkgs/racket-index/setup/scribble.rkt
View File

@ -1002,6 +1002,9 @@
(when move? (when move?
(when (directory-exists? dest-dir) (when (directory-exists? dest-dir)
(delete-directory/files dest-dir)) (delete-directory/files dest-dir))
(let-values ([(base name dir?) (split-path dest-dir)])
(when (and (path? base) (not (directory-exists? base)))
(make-directory* base)))
(copy-directory/files src-dir dest-dir) (copy-directory/files src-dir dest-dir)
(delete-directory/files src-dir)) (delete-directory/files src-dir))
;; Register provided-tag information with the database: ;; Register provided-tag information with the database: