From f8fa984bae762143d02cf8edc1d942f83120e03c Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <littledan@Macintosh-103.local>
Date: Tue, 27 Jan 2009 00:30:08 -0600
Subject: [PATCH] Bug fixes for lcs.diff2html; xml.writer

---
 basis/lcs/diff2html/diff2html.factor | 4 ++--
 basis/xml/writer/writer.factor       | 3 +++
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/basis/lcs/diff2html/diff2html.factor b/basis/lcs/diff2html/diff2html.factor
index ee9a168a12..ee303cc5a5 100644
--- 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 8cb32af12f..a19fe69444 100644
--- 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
     "<?" write text>> write "?>" write ;
 
+M: number write-xml-chunk
+    "Numbers are not allowed in XML" throw ;
+
 M: sequence write-xml-chunk
     [ write-xml-chunk ] each ;
 
-- 
2.11.4.GIT