(selector-as*) ( quot length exemplar -- selector accum )

Vocabulary

sequences.extras.private

Inputs

quot	an object
length	an object
exemplar	an object

Outputs

selector	an object
accum	an object

Definition

USING: kernel sequences sequences.extras ;

IN: sequences.extras.private

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