merge-errors ( -- )

Vocabulary

peg.private

Inputs

None

Outputs

None

Definition

USING: kernel math namespaces sequences ;

IN: peg.private

: merge-errors ( -- )
    error-stack get dup length 1 >
    [ [ pop ] [ pop swap (merge-errors) ] [ ] tri push ]
    [ drop ] if ;