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

use iota in retry combinator in mason

Slava Pestov 2010-01-14 15:05:39 -06:00
parent 21dc4e59a0
commit 04d9f19fb8
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/mason/common/common.factor
View File

@ -30,6 +30,7 @@ M: windows really-delete-tree
M: unix really-delete-tree delete-tree ; M: unix really-delete-tree delete-tree ;
: retry ( n quot -- ) : retry ( n quot -- )
[ iota ] dip
'[ drop @ f ] attempt-all drop ; inline '[ drop @ f ] attempt-all drop ; inline
:: upload-safely ( local username host remote -- ) :: upload-safely ( local username host remote -- )