throw-unclosed ( -- * )

Vocabulary

xml.errors

Inputs

None

Outputs

None

Definition

USING: accessors kernel namespaces sequences xml.state ;

IN: xml.errors

: throw-unclosed ( -- * )
    get-line get-column xml-stack get rest-slice
    [ first name>> ] map unclosed boa throw ;