read-seq ( stream quot n -- seq )

Vocabulary

xml.private

Inputs

stream	an object
quot	an object
n	an object

Outputs

seq

an object

Definition

USING: kernel namespaces sequences xml.errors xml.state
xml.tokenize ;

IN: xml.private

: read-seq ( stream quot n -- seq )
    rot [
        depth set init-xml init-xml-stack call
        [ process ] xml-loop done? [ throw-unclosed ] unless
        xml-stack get first second
    ] with-state ; inline