From a290ea57cc2689b4ef3e0d89d81baca113417768 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <ehrenbed@carleton.edu>
Date: Mon, 10 Dec 2007 00:37:32 -0500
Subject: [PATCH] FAQ convienence word

---
 extra/faq/faq.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extra/faq/faq.factor b/extra/faq/faq.factor
index 6d5f124157..703d542131 100644
--- a/extra/faq/faq.factor
+++ b/extra/faq/faq.factor
@@ -108,3 +108,6 @@ C: <faq> faq
         "header" [ dup faq-header , ] tag,
         faq-lists [ question-list>xml , nl, ] each
     ] make-xml ;
+
+: read-write-faq ( xml-stream -- )
+    [ read-xml ] with-stream xml>faq faq>html write-xml ;