factor: trim using lists

[factor.git] / basis / math / primes / erato / fast / fast.factor

diff --git a/basis/math/primes/erato/fast/fast.factor b/basis/math/primes/erato/fast/fast.factor
index ee957afa9473d22ec2e52647a40e00e3e173ddea..c64e58957302393eb9056800cf19e945cbc0e8ed 100644 (file)
--- a/basis/math/primes/erato/fast/fast.factor
+++ b/basis/math/primes/erato/fast/fast.factor
@@ -1,16 +1,16 @@
 ! Copyright (C) 2015 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: bit-arrays fry kernel kernel.private literals locals math
-math.functions math.private math.ranges math.statistics
-sequences sequences.private ;
+USING: bit-arrays kernel literals math math.functions
+math.private ranges math.statistics sequences
+sequences.private ;
 
 IN: math.primes.erato.fast
 
 <PRIVATE
 
 CONSTANT: wheel-2-3-5-7 $[
-    11 dup 210 + [a,b] [
+    11 dup 210 + [a..b] [
         { 2 3 5 7 } [ divisor? ] with none?
     ] B{ } filter-as differences
 ]