check-action ( result quot -- result )

Vocabulary

peg.private

Inputs

result	an object
quot	an object

Outputs

result

an object

Definition

USING: accessors combinators kernel ;

IN: peg.private

: check-action ( result quot -- result )
    dupd [ ( ast -- ast ) call-effect ] curry
    [ change-ast ] curry when ;