write-internal-subset ( dtd -- )

Vocabulary

xml.writer.private

Inputs

dtd

an object

Outputs

None

Definition

USING: accessors io kernel sequences xml.writer ;

IN: xml.writer.private

: write-internal-subset ( dtd -- )
    [
        "[" write indent directives>> [ ?indent write-xml ] each
        unindent ?indent "]" write
    ] when* ;