(pull-elem) ( pull -- xml-elem/f )

Vocabulary

xml.private

Inputs

pull

an object

Outputs

xml-elem/f

an object

Definition

USING: kernel namespaces sequences xml xml.data xml.state ;

IN: xml.private

: (pull-elem) ( pull -- xml-elem/f )
    dup pull-event dup closer? done? and
    [ nip ] [
        process done?
        [ drop xml-stack get first second ] [ (pull-elem) ] if
    ] if ;