math.statistics: use >array instead of { } clone-like.

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index e50c7006f97124f177a9ed90802162d935b28427..950df958ebd0a930e6d10981f7c646c7c57dccfc 100644 (file)
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -91,7 +91,7 @@ PRIVATE>
 
 : (kth-object) ( seq k nth-quot exchange-quot quot: ( x y -- ? ) -- elt )
     #! The algorithm modifiers seq, so we clone it
-    [ { } clone-like ] 4dip ((kth-object)) ; inline
+    [ >array ] 4dip ((kth-object)) ; inline
 
 : kth-object-unsafe ( seq k quot: ( x y -- ? ) -- elt )
     [ [ nth-unsafe ] [ exchange-unsafe ] ] dip (kth-object) ; inline