parse-token ( input string -- result )

Vocabulary

peg.private

Inputs

input	an object
string	an object

Outputs

result

an object

Definition

USING: accessors kernel namespaces peg sequences splitting
vectors ;

IN: peg.private

: parse-token ( input string -- result )
    [ ?head-slice ] keep swap
    [ <parse-result> ] [
        [ seq>> pos get swap ] dip "'" "'" surround
        1vector add-error f
    ] if ;