expect-event ( parser event type -- )

Vocabulary

yaml.private

Inputs

parser	an object
event	an object
type	an object

Outputs

None

Definition

USING: accessors arrays destructors kernel yaml ;

IN: yaml.private

: expect-event ( parser event type -- )
    [
        [ next-event type>> ] dip 2dup =
        [ 2drop ] [ 1array yaml-unexpected-event ] if
    ] with-destructors ;