X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fmath%2Fstatistics%2Fstatistics.factor;h=ab5e10a6e6aa5ac359725f038790b2c9600a573f;hp=e9a61a9628d2ab516ac3e1db1c240f83a4a3ce18;hb=07d2b0364b3301eab16a1ccfb050f5b3edddbd91;hpb=5809cde3222f985f318e628ce14a35d62c2fafcc

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index e9a61a9628..ab5e10a6e6 100644
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -124,7 +124,7 @@ PRIVATE>
     k seq nth-unsafe ; inline
 
 : (kth-object) ( seq k nth-quot exchange-quot quot: ( x y -- ? ) -- elt )
-    ! The algorithm modifiers seq, so we clone it
+    ! The algorithm modifies seq, so we clone it
     [ >array ] 4dip kth-object-impl ; inline
 
 : kth-object-unsafe ( seq k quot: ( x y -- ? ) -- elt )