assert-tag ( name name -- )
Utilities for traversing XML

Prev:

first-child-tag ( tag -- child )

Vocabulary
xml.traversal

Inputs

name	an object
name	an object

Outputs
None

Definition

USING: kernel xml.data ;

IN: xml.traversal

: assert-tag ( name name -- )
    names-match? [ "Unexpected XML tag found" throw ] unless ;