Vocabulary
xml.traversal

Inputs
namean object


Outputs
None

Definition


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