parse-result-parsed-slice ( parse-result -- slice )

Vocabulary

parser-combinators

Inputs

parse-result

an object

Outputs

slice

an object

Definition

USING: accessors kernel math sequences ;

IN: parser-combinators

: parse-result-parsed-slice ( parse-result -- slice )
    dup parsed>> empty?
    [ unparsed>> 0 0 rot <slice> ] [
        dup unparsed>> dup from>> [ rot parsed>> length - ] keep
        rot seq>> <slice>
    ] if ;