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

2013-06-25 15:40:33 -07:00 · 2013-06-25 15:40:33 -07:00 · aa779eaba8
parent 938a6d68ab
commit aa779eaba8
1 changed files with 1 additions and 1 deletions
--- 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