raco setup: create destination doc directory if needed for move

2013-07-11 08:51:10 -06:00 · 2013-07-11 08:51:10 -06:00 · 5c222ca078
commit 5c222ca078
parent b9fd9ad78c
1 changed files with 3 additions and 0 deletions
--- a/pkgs/racket-pkgs/racket-index/setup/scribble.rkt
+++ b/pkgs/racket-pkgs/racket-index/setup/scribble.rkt
@ -1002,6 +1002,9 @@
    (when move?
      (when (directory-exists? 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)
      (delete-directory/files src-dir))
    ;; Register provided-tag information with the database: