end-tag ( name attrs-alist -- tag )

Vocabulary

xml.elements

Inputs

name	an object
attrs-alist	an object

Outputs

tag

an object

Definition

USING: kernel namespaces xml.data xml.name xml.state
xml.tokenize ;

IN: xml.elements

: end-tag ( name attrs-alist -- tag )
    tag-ns pass-blank get-char 47 eq?
    [ pop-ns <contained> next ">" expect ]
    [ depth inc <opener> close ] if ;