mason: only check docs-host if uploading docs

diff --git a/extra/mason/mason.factor b/extra/mason/mason.factor
index 47c1810858938df3da52dd73f66f4b4ed6b2fddd..284073fa0419487332b9dbd4ea0e0bc54dc3f240 100644 (file)
--- a/extra/mason/mason.factor
+++ b/extra/mason/mason.factor
@@ -46,10 +46,12 @@ IN: mason
     ] { } make short-running-process ;
 
 : check-hosts ( -- )
-    docs-username get docs-host get check-host
     branch-username get branch-host get check-host
     package-username get package-host get check-host
-    image-username get image-host get check-host ;
+    image-username get image-host get check-host
+    upload-docs? get [
+        docs-username get docs-host get check-host
+    ] when ;
 
 : run-mason ( -- )
     check-hosts