check-parse-result ( result -- result )

Vocabulary

peg

Inputs

result

an object

Outputs

result

an object

Definition

USING: accessors kernel sequences unicode ;

IN: peg

: check-parse-result ( result -- result )
    [
        dup remaining>> [ blank? ] trim
        [ unable-to-fully-parse ] unless-empty
    ] [ could-not-parse ] if* ;