From 6cff5eb76fcda8187f75d8d3398ae39a2319f262 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 1 Sep 2008 19:10:34 -0500
Subject: [PATCH] write-item writes parts of xml, so add a method on xml
 objects to make it write their bodies without the prolog

---
 basis/xml/writer/writer.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/basis/xml/writer/writer.factor b/basis/xml/writer/writer.factor
index 13f0be431c..8bda10102d 100644
--- a/basis/xml/writer/writer.factor
+++ b/basis/xml/writer/writer.factor
@@ -110,6 +110,9 @@ M: instruction write-item
         [ after>> write-chunk ]
     } cleave ;
 
+M: xml write-item
+    body>> write-item ;
+
 : print-xml ( xml -- )
     write-xml nl ;