Use existing recursion tools rather than explicit one

2008-12-26 20:58:46 +01:00 · 2008-12-26 20:58:46 +01:00 · 4f42d00769
parent 7303316a04
commit 4f42d00769
1 changed files with 1 additions and 1 deletions
--- a/extra/math/primes/primes.factor
+++ b/extra/math/primes/primes.factor
@ -7,7 +7,7 @@ IN: math.primes
 <PRIVATE

 : find-prime-miller-rabin ( n -- p )
-    dup miller-rabin [ 2 + find-prime-miller-rabin ] unless ; foldable
+    [ dup miller-rabin ] [ 2 + ] [ ] until ; foldable

 PRIVATE>