From aa779eaba839d127c64883c2d115d5cbd1e11ba1 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 25 Jun 2013 15:40:33 -0700 Subject: [PATCH] math.statistics: use >array instead of { } clone-like. --- 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 e50c7006f9..950df958eb 100644 --- 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