process-parser-result ( result -- result )

Vocabulary

peg.private

Inputs

result

an object

Outputs

result

an object

Definition

USING: kernel peg ;

IN: peg.private

: process-parser-result ( result -- result )
    dup fail = [ drop f ] [ input-slice swap <parse-result> ] if
    ;