use iota in retry combinator in mason

2010-01-14 15:05:39 -06:00 · 2010-01-14 15:05:39 -06:00 · 493155826d
parent 4cce9259e1
commit 493155826d
1 changed files with 1 additions and 0 deletions
--- a/extra/mason/common/common.factor
+++ b/extra/mason/common/common.factor
@ -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 -- )