Only upload help if buld is clean

2008-11-16 16:21:25 -06:00 · 2008-11-16 16:21:25 -06:00 · f2d34b6d6e
parent bd2d78b6b1
commit f2d34b6d6e
1 changed files with 4 additions and 1 deletions
--- 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 ;