compiled-parse ( state word -- result )

Vocabulary

peg

Inputs

state	an object
word	an object

Outputs

result

an object

Definition

USING: kernel namespaces sequences ;

IN: peg

: compiled-parse ( state word -- result )
    swap [
        execute-parser [
            error-stack get ?first
            [ throw ]
            [ pos get input get f <parse-error> throw ] if*
        ] unless*
    ] with-packrat ;