From dd52a32d66d3a3c40f383ddbe8d64b620e95e939 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Wed, 16 Jun 2010 02:52:42 -0400
Subject: [PATCH] Move xml->string to a more proper place

original commit: 5da56167a996f591f3f170b9ab0c06af8ca0c399
---
 collects/meta/web/html/xml.rkt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/meta/web/html/xml.rkt b/collects/meta/web/html/xml.rkt
index 721a4e22..09c92e0c 100644
--- a/collects/meta/web/html/xml.rkt
+++ b/collects/meta/web/html/xml.rkt
@@ -2,7 +2,7 @@
 
 ;; XML-like objects and functions, with rendering
 
-(require scribble/text)
+(require scribble/text racket/port)
 
 ;; ----------------------------------------------------------------------------
 ;; Represent attribute names as `foo:' symbols.  They are made self-quoting in
@@ -61,6 +61,10 @@
 (define (output-xml content [p (current-output-port)])
   (output (disable-prefix (with-writer (xml-writer) content)) p))
 
+(provide xml->string)
+(define (xml->string content)
+  (with-output-to-string (lambda () (output-xml content))))
+
 ;; ----------------------------------------------------------------------------
 ;; Structs for xml data: elements, literals, entities