clean up retry

db4
Doug Coleman 2008-02-29 18:04:09 -06:00
parent ac6c91d5a6
commit adf5cfda59
1 changed files with 1 additions and 1 deletions
extra/combinators/lib

View File

@ -170,4 +170,4 @@ MACRO: construct-slots ( assoc tuple-class -- tuple )
>r keep r> rot [ call ] [ 2drop f ] if ; inline
: retry ( quot n -- )
swap [ drop ] swap compose attempt-all ; inline
[ drop ] rot compose attempt-all ; inline