From f2d34b6d6ec4c5def9649e046cec8e6ad90f05d3 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 16 Nov 2008 16:21:25 -0600 Subject: [PATCH] Only upload help if buld is clean --- extra/mason/help/help.factor | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/extra/mason/help/help.factor b/extra/mason/help/help.factor index 1e3e1509c9..c9ca50f0c2 100644 --- a/extra/mason/help/help.factor +++ b/extra/mason/help/help.factor @@ -16,8 +16,11 @@ IN: mason.help help-directory get "/docs.tar.gz" append upload-safely ; -: upload-help ( -- ) +: (upload-help) ( -- ) upload-help? get [ make-help-archive upload-help-archive ] when ; + +: upload-help ( -- ) + status get status-clean eq? [ (upload-help) ] when ;