factor: trim using lists

[factor.git] / extra / benchmark / e-decimals / e-decimals.factor

diff --git a/extra/benchmark/e-decimals/e-decimals.factor b/extra/benchmark/e-decimals/e-decimals.factor
index c1220231fd22fa5c826ea5f0d0f5e2299954d000..d7bdf9880dc7540fc0972312fbccaaed805c3d87 100644 (file)
--- a/extra/benchmark/e-decimals/e-decimals.factor
+++ b/extra/benchmark/e-decimals/e-decimals.factor
@@ -1,14 +1,13 @@
 ! Copyright (C) 2009 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: decimals kernel locals math math.combinatorics math.ranges
-sequences ;
+USING: decimals kernel math ranges sequences ;
 IN: benchmark.e-decimals
 
 : D-factorial ( n -- D! )
     <iota> DECIMAL: 1 [ 0 <decimal> DECIMAL: 1 D+ D* ] reduce ; inline
 
 :: calculate-e-decimals ( n -- e )
-    n [1,b] DECIMAL: 1
+    n [1..b] DECIMAL: 1
     [ D-factorial DECIMAL: 1 swap n D/ D+ ] reduce ;
 
 : e-decimals-benchmark ( -- )