?keep-parsing-with ( vector sequence-parser quot -- vector )

Vocabulary

lint.vocabs.private

Inputs

vector	an object
sequence-parser	an object
quot	an object

Outputs

vector

an object

Definition

USING: combinators kernel sequences.parser ;

IN: lint.vocabs.private

: ?keep-parsing-with
    ( vector sequence-parser quot -- vector )
    [ dup sequence-parse-end? not ] dip
    [ ( x x -- x ) call-effect ] curry [ drop ] if ;