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

diff --git a/extra/webapps/mason/docs-update/docs-update.factor b/extra/webapps/mason/docs-update/docs-update.factor
index 3621f096ece77d37377263de8322b24dd63c01a0..2df1f9ee8395e2374bc48800a011fd3632f64fae 100644 (file)
--- 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