From 4f42d00769a2b3ca5e9e231f42f5747ce8e34f3a Mon Sep 17 00:00:00 2001
From: Samuel Tardieu <sam@rfc1149.net>
Date: Fri, 26 Dec 2008 20:58:46 +0100
Subject: [PATCH] Use existing recursion tools rather than explicit one

---
 extra/math/primes/primes.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/math/primes/primes.factor b/extra/math/primes/primes.factor
index 2db81982d8..d93910ec02 100644
--- 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>