check-semantic ( result quot -- result )


Vocabulary
peg.private

Inputs
resultan object
quotan object


Outputs
resultan object


Definition
USING: accessors kernel ;

IN: peg.private

: check-semantic ( result quot -- result )
dupd '[ dup ast>> @ and* ] when ; inline