html.components: For the t:html tag, only wrap strings in unescaped so that other objects can render.

basis/html/components/components-tests.factor

@@ -1,7 +1,7 @@
 USING: tools.test kernel io.streams.string
 io.streams.null accessors inspector html.streams
 html.components html.forms namespaces
-xml.writer ;
+xml.writer xml.syntax ;
 FROM: html.components => inspector ;
 IN: html.components.tests
 
@@ -196,3 +196,15 @@ M: link-test link-href drop "http://www.apple.com/foo&bar" ;
 [ ] [
     "error" hidden render
 ] unit-test
+
+! Test xml in html components
+[ ] [
+    [XML <foo/> XML] "xmltest" set-value
+] unit-test
+
+[ "<foo/>" ] [
+    [
+        "xmltest" html render
+    ] with-string-writer
+] unit-test
+

basis/html/components/components.factor

@@ -190,7 +190,7 @@ M: comparison render*
 ! HTML component
 SINGLETON: html
 
-M: html render* 2drop <unescaped> ;
+M: html render* 2drop dup string? [ <unescaped> ] when ;
 
 ! XML component
 SINGLETON: xml