sequences: privacy please

2009-09-08 16:25:41 -05:00 · 2009-09-08 16:25:41 -05:00 · d566380a0d
parent 8803383a58
commit d566380a0d
1 changed files with 4 additions and 0 deletions
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@ -535,9 +535,13 @@ PRIVATE>
 : last-index-from ( obj i seq -- n )
    rot [ = ] curry find-last-from drop ;

+<PRIVATE
+
 : (indices) ( elt i obj accum -- )
    [ swap [ = ] dip ] dip [ push ] 2curry when ; inline

+PRIVATE>
+
 : indices ( obj seq -- indices )
    swap V{ } clone
    [ [ (indices) ] 2curry each-index ] keep ;