xml-loop ( quot: ( xml-elem -- ) -- )

Vocabulary

xml.private

Inputs

quot	a quotation with stack effect ( xml-elem -- )

Outputs

None

Definition

USING: kernel xml.elements xml.state xml.tokenize ;

IN: xml.private

: xml-loop ( quot: ( xml-elem -- ) -- )
    parse-text call-under get-char
    [ make-tag call-under xml-loop ] [ drop ] if ; inline
    recursive