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 ] -rot '[ _ pop @ ] while ; inline