webapps.mason.docs-update: recover properly if previous update attempt fails

2010-10-04 21:29:29 -07:00 · 2010-10-04 21:29:29 -07:00 · 52b11a88a6
parent b5ed5b8821
commit 52b11a88a6
1 changed files with 2 additions and 0 deletions
--- a/extra/webapps/mason/docs-update/docs-update.factor
+++ b/extra/webapps/mason/docs-update/docs-update.factor
@ -11,6 +11,8 @@ IN: webapps.mason.docs-update

 : update-docs ( -- )
    home [
+        "newdocs" exists? [ "newdocs" delete-tree ] when
+
        "newdocs" make-directory
        "newdocs" [ { "tar" "xfz" } docs-path suffix try-process ] with-directory