commit 22ee29d23432b0a3feda44d1716c4320135f81d3
parent 0e562a46dafb7ddfc8945fa9291469c08ba6e507
Author: Eli Barzilay <eli@racket-lang.org>
Date: Thu, 5 Mar 2009 09:58:12 +0000
delete the target file if it exists
svn: r13968
original commit: ac70e716f863ca77eb0d0ec02185e148d5fddbad
Diffstat:
1 file changed, 1 insertion(+), 0 deletions(-)
diff --git a/collects/scribble/private/indirect-renderer.ss b/collects/scribble/private/indirect-renderer.ss
@@ -40,6 +40,7 @@
(convert (file-name-from-path tmp)))
(when (super report-output?) ; use the original
(printf " [Output to ~a]\n" dst))
+ (when (file-exists? dst) (delete-file dst))
(copy-file (build-path tmp-dir (file-name-from-path dst)) dst))
(cleanup)))
(super-new)))