define-inline-ebnf ( ast string -- quot )

Vocabulary

peg.ebnf

Inputs

ast	an object
string	an object

Outputs

quot

an object

Definition

USING: accessors kernel peg peg.ebnf.private sequences ;

IN: peg.ebnf

: define-inline-ebnf ( ast string -- quot )
    reset-tokenizer ebnf>quot
    [ check-parse-result ast>> ] compose nip suffix!
    \ call suffix! reset-tokenizer ;