USING: accessors kernel sequences xml.data xml.syntax.private ;

IN: xmode.code2html

: htmlize-tokens ( tokens -- xml )
[
[ str>> ] [ id>> ] bi [
name>> swap 2 nenum
T{ xml-chunk { seq V{ "" ~tag~ "" } } }
interpolate-xml
] when*
] map ;