Bug fixes for lcs.diff2html; xml.writer

diff --git a/basis/lcs/diff2html/diff2html.factor b/basis/lcs/diff2html/diff2html.factor
index ee9a168a12ca4d301f1bb427452881d467e4195d..ee303cc5a5868d067dc9d77dba202fe4b03acfd2 100644 (file)
--- a/basis/lcs/diff2html/diff2html.factor
+++ b/basis/lcs/diff2html/diff2html.factor
@@ -17,7 +17,7 @@ M: retain diff-line
     dup [XML <tr><-><-></tr> XML] ;
 
 M: insert diff-line
-    [XML
+    item-string [XML
         <tr>
             <td> </td>
             <td class="insert"><-></td>
@@ -25,7 +25,7 @@ M: insert diff-line
     XML] ;
 
 M: delete diff-line
-    [XML
+    item-string [XML
         <tr>
             <td class="delete"><-></td>
             <td> </td>

diff --git a/basis/xml/writer/writer.factor b/basis/xml/writer/writer.factor
index 8cb32af12f5f283c06333ef58bafbd7d3a530b08..a19fe69444c1229ce218d1f082c66f8758941db6 100644 (file)
--- a/basis/xml/writer/writer.factor
+++ b/basis/xml/writer/writer.factor
@@ -155,6 +155,9 @@ M: directive write-xml-chunk
 M: instruction write-xml-chunk\r
     "<?" write text>> write "?>" write ;\r
 \r
+M: number write-xml-chunk\r
+    "Numbers are not allowed in XML" throw ;\r
+\r
 M: sequence write-xml-chunk\r
     [ write-xml-chunk ] each ;\r
 \r