Use existing recursion tools rather than explicit one

diff --git a/extra/math/primes/primes.factor b/extra/math/primes/primes.factor
index 2db81982d8a72cfe77c1f36c18072e3f86097bc7..d93910ec02f0172079bb44d4ee59e4a1c62c384d 100644 (file)
--- 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>