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

sequences: privacy please

db4
Slava Pestov 2009-09-08 16:25:41 -05:00
parent fe25bb097f
commit 924ccca457
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/sequences/sequences.factor
View File

@ -535,9 +535,13 @@ PRIVATE>
: last-index-from ( obj i seq -- n ) : last-index-from ( obj i seq -- n )
rot [ = ] curry find-last-from drop ; rot [ = ] curry find-last-from drop ;
<PRIVATE
: (indices) ( elt i obj accum -- ) : (indices) ( elt i obj accum -- )
[ swap [ = ] dip ] dip [ push ] 2curry when ; inline [ swap [ = ] dip ] dip [ push ] 2curry when ; inline
PRIVATE>
: indices ( obj seq -- indices ) : indices ( obj seq -- indices )
swap V{ } clone swap V{ } clone
[ [ (indices) ] 2curry each-index ] keep ; [ [ (indices) ] 2curry each-index ] keep ;