process-rule-result ( p result -- result )

Vocabulary

peg.private

Inputs

p	an object
result	an object

Outputs

result

an object

Definition

USING: accessors kernel namespaces peg ;

IN: peg.private

: process-rule-result ( p result -- result )
    [ nip [ ast>> ] [ remaining>> ] bi input-from pos set ]
    [ pos set fail ] if* ;