factor: trim using lists

[factor.git] / basis / math / primes / miller-rabin / miller-rabin.factor

diff --git a/basis/math/primes/miller-rabin/miller-rabin.factor b/basis/math/primes/miller-rabin/miller-rabin.factor
index 135073f9a8159d8f52363150a8d369ff4e33cd83..5b40c00777e3642400d19a99a3040c9a0e63df21 100644 (file)
--- a/basis/math/primes/miller-rabin/miller-rabin.factor
+++ b/basis/math/primes/miller-rabin/miller-rabin.factor
@@ -1,6 +1,6 @@
 ! Copyright (c) 2008-2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: combinators kernel locals math math.functions math.ranges
+USING: combinators kernel math math.functions ranges
 random sequences ;
 IN: math.primes.miller-rabin
 
@@ -12,7 +12,7 @@ IN: math.primes.miller-rabin
     0 :> a!
     trials <iota> [
         drop
-        2 n 2 - [a,b] random a!
+        2 n 2 - [a..b] random a!
         a s n ^mod 1 = [
             f
         ] [