write-decl ( decl name quot: ( decl -- slot ) -- )

Vocabulary

xml.writer.private

Inputs

decl	an object
name	an object
quot	a quotation with stack effect ( decl -- slot )

Outputs

None

Definition

USING: accessors io kernel ;

IN: xml.writer.private

: write-decl ( decl name quot: ( decl -- slot ) -- )
    "<!" write swap write bl [ name>> write bl ] swap
    [ write ">" write ] compose bi ; inline