html.templates.chloe: need to do cdata differently

diff --git a/basis/html/templates/chloe/chloe.factor b/basis/html/templates/chloe/chloe.factor
index d2c784adcd657a256bf98e062d1c5faa7e4126b4..84064565b0959b67708f6d9c18f3e783038f4617 100644 (file)
--- a/basis/html/templates/chloe/chloe.factor
+++ b/basis/html/templates/chloe/chloe.factor
@@ -5,6 +5,7 @@ html.templates html.templates.chloe.compiler
 html.templates.chloe.components html.templates.chloe.syntax
 io.encodings.utf8 io.files io.files.info kernel logging make
 math namespaces sequences splitting words xml xml.syntax ;
+QUALIFIED: xml.data
 IN: html.templates.chloe
 
 TUPLE: chloe path ;
@@ -45,8 +46,8 @@ CHLOE: script
 
 CHLOE: write-script
     drop [
-        get-script
-        [XML <script type="text/javascript"><![CDATA[<->]]></script> XML]
+        get-script xml.data:<cdata>
+        [XML <script type="text/javascript"> <-> </script> XML]
     ] [xml-code] ;
 
 CHLOE: meta