From 5099046f9fdcc85649d92b4866de7617b4708ef9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@shill.internal.stack-effects.com>
Date: Thu, 7 May 2009 20:52:16 -0500
Subject: [PATCH] math.miller-rabin: make some utilities not private since
 math.primes uses them

---
 basis/math/miller-rabin/miller-rabin.factor | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/basis/math/miller-rabin/miller-rabin.factor b/basis/math/miller-rabin/miller-rabin.factor
index 9fd604a003..88c01d5271 100755
--- a/basis/math/miller-rabin/miller-rabin.factor
+++ b/basis/math/miller-rabin/miller-rabin.factor
@@ -5,8 +5,6 @@ random sequences sets combinators.short-circuit math.bitwise
 math math.order ;
 IN: math.miller-rabin
 
-<PRIVATE
-
 : >odd ( n -- int ) 0 set-bit ; foldable
 
 : >even ( n -- int ) 0 clear-bit ; foldable
@@ -15,7 +13,7 @@ IN: math.miller-rabin
 
 : next-odd ( m -- n ) dup even? [ 1 + ] [ 2 + ] if ;
 
-TUPLE: positive-even-expected n ;
+<PRIVATE
 
 :: (miller-rabin) ( n trials -- ? )
     n 1 - :> n-1