make retry inline

2008-02-29 00:11:50 -06:00 · 2008-02-29 00:11:50 -06:00 · 0102689b1e
parent 6cb5f76893
commit 0102689b1e
1 changed files with 1 additions and 1 deletions
--- a/extra/combinators/lib/lib.factor
+++ b/extra/combinators/lib/lib.factor
@ -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