calc-seq-result ( prev-result current-result -- next-result )

Vocabulary

peg.private

Inputs

prev-result	an object
current-result	an object

Outputs

next-result

an object

Definition

USING: accessors kernel peg sequences ;

IN: peg.private

: calc-seq-result
    ( prev-result current-result -- next-result )
    [
        [ remaining>> >>remaining ] [ ast>> ] bi dup ignore =
        [ drop ] [ over ast>> push ] if
    ] [ drop f ] if* ;