sequences: rename supremum-by/infinum-by

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

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index a8a2d9583bb132b88cb346072f588b1f0235c5cb..6c2992800cc4411390a55a3705af7a3f7a8f1807 100644 (file)
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -18,7 +18,7 @@ IN: math.statistics
     0 mean-ddof ; inline
 
 : meanest ( seq -- x )
-    [ mean ] keep [ - abs ] with infimum-by ;
+    [ mean ] keep [ - abs ] with minimum-by ;
 
 GENERIC: sum-of-squares ( seq -- x )
 M: object sum-of-squares [ sq ] map-sum ;
@@ -273,7 +273,7 @@ PRIVATE>
     dup recip <array> ; inline
 
 : mode ( seq -- x )
-    histogram >alist [ second ] supremum-by first ;
+    histogram >alist [ second ] maximum-by first ;
 
 : minmax ( seq -- min max )
     [ first dup ] keep [ [ min ] [ max ] bi-curry bi* ] 1 each-from ;