use iota in retry combinator in mason

db4
Slava Pestov 2010-01-14 15:05:39 -06:00
parent 4cce9259e1
commit 493155826d
1 changed files with 1 additions and 0 deletions

View File

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