parser-tokenizer ( parser -- tokenizer )

Vocabulary

peg.ebnf.private

Inputs

parser

an object

Outputs

tokenizer

an object

Definition

USING: kernel peg quotations ;

IN: peg.ebnf.private

: parser-tokenizer ( parser -- tokenizer )
    [ 1quotation ] keep [ swap [ = ] curry semantic ] curry
    dup tokenizer-tuple boa ;