render-error ( message -- xml )


Vocabulary
html

Inputs
messagean object


Outputs
xmlan object


Definition
USING: xml.data xml.syntax.private ;

IN: html

: render-error ( message -- xml )
1 nenum T{ xml-chunk
{ seq
V{
""
T{ tag
{ name ~name~ }
{ attrs ~attrs~ }
{ children ~vector~ }
}
""
}
}
} interpolate-xml ;