steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Only upload help if buld is clean

db4
Slava Pestov 2008-11-16 16:21:25 -06:00
parent bd2d78b6b1
commit f2d34b6d6e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/mason/help/help.factor
View File

@ -16,8 +16,11 @@ IN: mason.help
help-directory get "/docs.tar.gz" append help-directory get "/docs.tar.gz" append
upload-safely ; upload-safely ;
: upload-help ( -- ) : (upload-help) ( -- )
upload-help? get [ upload-help? get [
make-help-archive make-help-archive
upload-help-archive upload-help-archive
] when ; ] when ;
: upload-help ( -- )
status get status-clean eq? [ (upload-help) ] when ;