Cleanup some lint warnings.

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

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index 455332dfb840b5fc0d93ed9514c78e8b2c761b80..46b24bc98b24b297f4eea37e02fd60d61b6ea5d0 100644 (file)
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -92,7 +92,7 @@ PRIVATE>
 
 : mode ( seq -- x )
     histogram >alist
-    [ ] [ [ [ second ] bi@ > ] 2keep ? ] map-reduce first ;
+    [ ] [ [ [ second ] bi@ > ] most ] map-reduce first ;
 
 ERROR: empty-sequence ;