merge-overlapping-errors ( a b -- c )

Vocabulary

peg.private

Inputs

a	an object
b	an object

Outputs

c

an object

Definition

USING: accessors kernel peg sets ;

IN: peg.private

: merge-overlapping-errors ( a b -- c )
    dupd [ messages>> ] bi@ union
    [ [ position>> ] [ got>> ] bi ] dip <parse-error> ;