FAQ convienence word

diff --git a/extra/faq/faq.factor b/extra/faq/faq.factor
index 6d5f12415764266df7f783a31c3be84b3a6980b6..703d54213195e0b2df77a029dec1a15dfe13aed2 100644 (file)
--- 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 ;