From 52b11a88a6e1510fed81fc06a25803f14ae2e91d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 4 Oct 2010 21:29:29 -0700
Subject: [PATCH] webapps.mason.docs-update: recover properly if previous
 update attempt fails

---
 extra/webapps/mason/docs-update/docs-update.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/extra/webapps/mason/docs-update/docs-update.factor b/extra/webapps/mason/docs-update/docs-update.factor
index 3621f096ec..2df1f9ee83 100644
--- 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