use iota in retry combinator in mason
parent
4cce9259e1
commit
493155826d
|
@ -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 -- )
|
||||
|
|
Loading…
Reference in New Issue