suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

delete the target file if it exists

Browse Source 
svn: r13968

original commit: ac70e716f863ca77eb0d0ec02185e148d5fddbad
This commit is contained in:
Eli Barzilay 2009-03-05 09:58:12 +00:00
parent 0e562a46da
commit 22ee29d234
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/scribble/private/indirect-renderer.ss
View File

@ -40,6 +40,7 @@
(convert (file-name-from-path tmp))) (convert (file-name-from-path tmp)))
(when (super report-output?) ; use the original (when (super report-output?) ; use the original
(printf " [Output to ~a]\n" dst)) (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)) (copy-file (build-path tmp-dir (file-name-from-path dst)) dst))
(cleanup))) (cleanup)))
(super-new))) (super-new)))