math.statistics: fix typo
authorDoug Coleman <doug.coleman@gmail.com>
Thu, 18 Aug 2022 23:57:43 +0000 (18:57 -0500)
committerDoug Coleman <doug.coleman@gmail.com>
Thu, 18 Aug 2022 23:57:43 +0000 (18:57 -0500)
basis/math/statistics/statistics.factor

index e9a61a9628d2ab516ac3e1db1c240f83a4a3ce18..ab5e10a6e6aa5ac359725f038790b2c9600a573f 100644 (file)
@@ -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 )