print-attrs ( assoc -- )

Vocabulary

xml.writer.private

Inputs

assoc

an object

Outputs

None

Definition

USING: assocs io kernel xml.entities xml.writer ;

IN: xml.writer.private

: print-attrs ( assoc -- )
    [
        [ bl print-name "=" write ]
        [ escape-quoted-string write-quoted ] bi*
    ] assoc-each ;