add-error ( position got message -- )

Vocabulary

peg.private

Inputs

position	an object
got	an object
message	an object

Outputs

None

Definition

USING: namespaces peg sequences ;

IN: peg.private

: add-error ( position got message -- )
    <parse-error> error-stack get push ;