semantic ( parser quot -- parser )

Vocabulary

peg

Inputs

parser	a parser
quot	a quotation with stack effect ( object -- ? )

Outputs

parser

a parser

Word description

Returns a parser that succeeds if the parser succeeds and the quotation called with the AST produced by parser on the stack returns true.

Examples

USING: kernel math peg prettyprint ; "C" [ drop t ] satisfy [ 66 > ] semantic parse .
67

Definition

USING: kernel peg.private ;

IN: peg

: semantic ( parser quot -- parser )
    semantic-parser boa wrap-peg ;