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


Vocabulary
sequences.private

Inputs
quotan object
lengthan object
exemplaran object


Outputs
selectoran object
accuman object


Definition
USING: kernel sequences ;

IN: sequences.private

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