From 07d2b0364b3301eab16a1ccfb050f5b3edddbd91 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 18 Aug 2022 18:57:43 -0500 Subject: [PATCH] math.statistics: fix typo --- basis/math/statistics/statistics.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ) -- 2.34.1