perform-parse ( input word -- result )

Vocabulary

peg.private

Inputs

input	an object
word	an object

Outputs

result

an object

Definition

USING: kernel namespaces peg sequences ;

IN: peg.private

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