check-closer ( name opener -- name opener )

Vocabulary

xml.private

Inputs

name	an object
opener	an object

Outputs

name	an object
opener	an object

Definition

USING: accessors kernel xml.errors ;

IN: xml.private

: check-closer ( name opener -- name opener )
    dup [ unopened ] unless 2dup name>> =
    [ name>> swap mismatched ] unless ;