slurp-vector ( ... seq quot: ( ... elt -- ... ) -- ... )

Vocabulary

ui.private

Inputs

seq	an object
quot	a quotation with stack effect ( ... elt -- ... )

Outputs

None

Definition

USING: kernel sequences ;

IN: ui.private

: slurp-vector ( ... seq quot: ( ... elt -- ... ) -- ... )
    over [ empty? not ] curry -rot [ [ pop ] curry ] dip compose
    while ; inline