make retry inline
parent
6cb5f76893
commit
0102689b1e
|
@ -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 ;
|
||||
swap [ drop ] swap compose attempt-all ; inline
|
||||
|
|
Loading…
Reference in New Issue