take-first-matching ( sequence-parser seq -- seq )

Vocabulary

sequences.parser

Inputs

sequence-parser	a sequence-parser
seq	a sequence

Outputs

seq	a sequence

Definition

USING: kernel sequences ;

IN: sequences.parser

: take-first-matching ( sequence-parser seq -- seq )
    swap [ [ swap take-sequence ] with-sequence-parser ] curry
    find nip ;