appender-for ( quot exemplar -- appender accum )


Vocabulary
sequences.extras

Inputs
quota quotation
exemplaran object


Outputs
appenderan object
accuman object


Word description
Given a quotation quot, creates an appender quotation and empty vector with a maximum storage limit the size of exemplar. The appender quotation will apply quot to its argument before appending it to the vector.

Definition
USING: kernel sequences sequences.extras.private ;

IN: sequences.extras

: appender-for ( quot exemplar -- appender accum )
[ length ] keep (appender-for) ; inline