webapps.mason.docs-update: use simpler words

diff --git a/extra/webapps/mason/docs-update/docs-update.factor b/extra/webapps/mason/docs-update/docs-update.factor
index f3d3d4ad54df3502917cd482cf2dce9695c7498e..0d50e7234313b938b7b1afc0400d1324af55a3c5 100644 (file)
--- a/extra/webapps/mason/docs-update/docs-update.factor
+++ b/extra/webapps/mason/docs-update/docs-update.factor
@@ -11,16 +11,16 @@ IN: webapps.mason.docs-update
 
 : update-docs ( -- )
     home [
-        "newdocs" file-exists? [ "newdocs" delete-tree ] when
+        "docs.new" ?delete-tree
 
-        "newdocs" make-directory
-        "newdocs" [ { "tar" "xfz" } docs-path suffix try-process ] with-directory
+        "docs.new" make-directory
+        "docs.new" [ { "tar" "xfz" } docs-path suffix try-process ] with-directory
 
-        "docs" file-exists? [ "docs" "docs.old" move-file ] when
-        "newdocs/docs" "docs" move-file
+        "docs" "docs.old" ?move-file
+        "docs.new/docs" "docs" move-file
 
-        "newdocs" delete-directory
-        "docs.old" file-exists? [ "docs.old" delete-tree ] when
+        "docs.new" delete-directory
+        "docs.old" ?delete-tree
 
         \ load-index reset-memoized
     ] with-directory ;