parse-1 ( input parser -- result )

Vocabulary

parser-combinators

Inputs

input	an object
parser	an object

Outputs

result

an object

Definition

USING: accessors kernel lists ;

IN: parser-combinators

: parse-1 ( input parser -- result )
    dupd parse dup nil?
    [ swap cannot-parse ] [ nip car parsed>> ] if ;