From e87107644e21c3b32cd5fb43bd269e79395bccd6 Mon Sep 17 00:00:00 2001
From: Carl Gay <carlgay@gmail.com>
Date: Thu, 30 Jun 2011 08:20:38 -0400
Subject: [PATCH] export initialize-wiki

---
 dylan/library.dylan    | 4 ++--
 dylan/main.dylan       | 2 --
 dylan/rst-parser.dylan | 2 +-
 3 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/dylan/library.dylan b/dylan/library.dylan
index b72d3ae..9459a51 100644
--- a/dylan/library.dylan
+++ b/dylan/library.dylan
@@ -51,8 +51,8 @@ end library wiki;
 ///
 define module wiki
   create
-    add-wiki-responders,
-    handle-markup;
+    handle-markup,
+    initialize-wiki;
 end;
 
 /// Internal module, for test suite
diff --git a/dylan/main.dylan b/dylan/main.dylan
index e4b55ef..74fb30b 100644
--- a/dylan/main.dylan
+++ b/dylan/main.dylan
@@ -93,7 +93,6 @@ end method process-config-element;
 
 define method process-administrator-configuration
     (admin-element :: xml/<element>)
-  log-debug("process-administrator-configuration");
   let password = get-attr(admin-element, #"password");
   let email = get-attr(admin-element, #"email");
   if (~(password & email))
@@ -354,7 +353,6 @@ add-option-parser-by-type(*argument-list-parser*,
 
 define function initialize-wiki
     (server :: <http-server>)
-  log-debug("initialize-wiki");
   let directory = option-value-by-long-name(*argument-list-parser*,
                                             "static-directory");
   if (directory)
diff --git a/dylan/rst-parser.dylan b/dylan/rst-parser.dylan
index 6ab77f4..e1e10ce 100644
--- a/dylan/rst-parser.dylan
+++ b/dylan/rst-parser.dylan
@@ -81,7 +81,7 @@ end function parse-wiki-markup;
 ///     then the reference may contain RST markup when rendered as a string.
 ///   epos - The index within 'markup-text' of *markup-suffix*.
 /// Signals:
-///   <parse-error>
+///   <parse-error>  TODO:
 ///
 define function parse-markup-element
     (markup-text :: <string>, bpos :: <integer>)