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>> ] ] dip [ and* ] compose compose when ;
inline