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

Vocabulary

peg.ebnf

Inputs

ast	an object
string	an object

Outputs

quot

an object

Definition

USING: accessors kernel peg.ebnf.private sequences ;

IN: peg.ebnf

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