(index-selector-as) ( quot length exampler -- selector accum )

Vocabulary

sequences.extras.private

Inputs

quot	an object
length	an object
exampler	an object

Outputs

selector	an object
accum	an object

Definition

USING: kernel sequences sequences.extras ;

IN: sequences.extras.private

: (index-selector-as)
    ( quot length exampler -- selector accum )
    new-resizable [ [ push-if-index ] 2curry ] keep ; inline