make-xml-doc ( seq -- xml-doc )

Vocabulary

xml.private

Inputs

seq

an object

Outputs

xml-doc

an object

Definition

USING: kernel sequences xml.data ;

IN: xml.private

: make-xml-doc ( seq -- xml-doc )
    [ get-prolog ] keep dup [ tag? ] find [
        assure-tags cut [ cut-prolog ] [ rest ] bi*
        no-pre/post no-post-tags
    ] dip swap <xml> ;