factor: Move math.ranges => ranges.

[factor.git] / basis / math / statistics / statistics.factor

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index 37a05ee5788c00c3c06ebe8796f4615bd1bbb806..8be9dae79b86c1e74d0d85c76f583297d06f1e78 100644 (file)
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs combinators
 combinators.short-circuit fry generalizations grouping kernel
-locals math math.functions math.order math.ranges math.vectors
+locals math math.functions math.order ranges math.vectors
 sequences sequences.private sorting ;
 IN: math.statistics
 
@@ -24,7 +24,7 @@ GENERIC: sum-of-squares ( seq -- x )
 M: object sum-of-squares [ sq ] map-sum ;
 M: iota sum-of-squares
     n>> 1 - [ ] [ 1 + ] [ 1/2 + ] tri * * 3 / ;
-M: math.ranges:range sum-of-squares
+M: ranges:range sum-of-squares
     dup { [ step>> 1 = ] [ from>> integer? ] } 1&& [
         [ from>> ] [ length>> ] bi dupd +
         [ <iota> sum-of-squares ] bi@ swap -
@@ -33,7 +33,7 @@ M: math.ranges:range sum-of-squares
 GENERIC: sum-of-cubes ( seq -- x )
 M: object sum-of-cubes [ 3 ^ ] map-sum ;
 M: iota sum-of-cubes sum sq ;
-M: math.ranges:range sum-of-cubes
+M: ranges:range sum-of-cubes
     dup { [ step>> 1 = ] [ from>> integer? ] } 1&& [
         [ from>> ] [ length>> ] bi dupd +
         [ <iota> sum-of-cubes ] bi@ swap -
@@ -51,7 +51,7 @@ M: iota sum-of-quads
             * * * 30 /
         ] [ 0 ] if
     ] ;
-M: math.ranges:range sum-of-quads
+M: ranges:range sum-of-quads
     dup { [ step>> 1 = ] [ from>> integer? ] } 1&& [
         [ from>> ] [ length>> ] bi dupd +
         [ <iota> sum-of-quads ] bi@ swap -