steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2013-06-25 15:40:33 -07:00
parent 938a6d68ab
commit aa779eaba8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/statistics/statistics.factor
View File

@ -91,7 +91,7 @@ PRIVATE>
: (kth-object) ( seq k nth-quot exchange-quot quot: ( x y -- ? ) -- elt ) : (kth-object) ( seq k nth-quot exchange-quot quot: ( x y -- ? ) -- elt )
#! The algorithm modifiers seq, so we clone it #! 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 ) : kth-object-unsafe ( seq k quot: ( x y -- ? ) -- elt )
[ [ nth-unsafe ] [ exchange-unsafe ] ] dip (kth-object) ; inline [ [ nth-unsafe ] [ exchange-unsafe ] ] dip (kth-object) ; inline