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

more forceful update of Scribble common files for docs

Browse Source 
racket/scribble#69
This commit is contained in:
Matthew Flatt 2016-11-21 08:02:09 -07:00
parent 7c22c42c72
commit 4902b5e10c
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1246,7 +1246,16 @@
(when (or (verbose) main?)
(setup-printf "installing" "~a" dest))
(make-directory* dest-dir)
(copy-file src dest #t)))
;; Copy new file into place, and if that fails,
;; try deleting the old file first (because it might
;; exist and not have write permission, while the
;; encloding directory might allow file deletes)
(with-handlers ([exn:fail:filesystem?
(lambda (exn)
(when (file-exists? dest)
(delete-file dest)
(copy-file src dest)))])
(copy-file src dest #t))))
(for ([f (in-list (append shared-empty-style-files
shared-empty-script-files))])
(define dest (build-path dest-dir f))