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 1/2] 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

From cf9a09b933dcc999335377763631c19eba914248 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@shill.internal.stack-effects.com>
Date: Thu, 7 May 2009 20:52:39 -0500
Subject: [PATCH 2/2] images.viewer: you can now pass a pathname object to
 image-window and image. words

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

diff --git a/extra/images/viewer/viewer.factor b/extra/images/viewer/viewer.factor
index b891142d5b..b41dae9b38 100644
--- a/extra/images/viewer/viewer.factor
+++ b/extra/images/viewer/viewer.factor
@@ -25,7 +25,7 @@ M: image <image-gadget>
 
 M: string <image-gadget> load-image <image-gadget> ;
 
-M: pathname <image-gadget> load-image <image-gadget> ;
+M: pathname <image-gadget> string>> load-image <image-gadget> ;
 
 : image-window ( object -- ) <image-gadget> "Image" open-window ;