Re-named "do_to" to "to".

1 files changed, 45 insertions, 1 deletions

diff --git a/stdlib/source/documentation/lux/data/collection/tree.lux b/stdlib/source/documentation/lux/data/collection/tree.lux
index f0d165a5b..fca76d251 100644
--- a/stdlib/source/documentation/lux/data/collection/tree.lux
+++ b/stdlib/source/documentation/lux/data/collection/tree.lux
@@ -5,12 +5,54 @@
    [data
     ["[0]" text (.only \n)
      ["%" \\format (.only format)]]]]]
+ ["[0]" \\parser]
  [\\library
   ["[0]" /]]
  ["[0]" /
   ["[1][0]" finger]
   ["[1][0]" zipper]])
 
+(`` (.def \\parser
+      (.List $.Module)
+      ($.module \\parser._
+                ""
+                [($.default \\parser.cannot_move_further)
+
+                 ($.documentation (\\parser.Parser it)
+                   "A parser of arbitrary trees.")
+
+                 ($.documentation \\parser.result'
+                   "Applies the parser against a tree zipper."
+                   [(result' parser zipper)])
+
+                 ($.documentation \\parser.result
+                   "Applies the parser against a tree."
+                   [(result parser tree)])
+
+                 ($.documentation \\parser.value
+                   "Yields the value inside the current tree node.")
+
+                 (,, (with_template [<name> <doc>]
+                       [($.documentation <name>
+                          <doc>)]
+
+                       [\\parser.down "Move down."]
+                       [\\parser.up "Move up."]
+
+                       [\\parser.right "Move to the right."]
+                       [\\parser.rightmost "Move to the rightmost node."]
+
+                       [\\parser.left "Move to the left."]
+                       [\\parser.leftmost "Move to the leftmost node."]
+                       
+                       [\\parser.next "Move to the next node."]
+                       [\\parser.end "Move to the last node."]
+                       
+                       [\\parser.previous "Move to the previous node."]
+                       [\\parser.start "Move to the root node."]
+                       ))]
+                [])))
+
 (.def .public documentation
   (.List $.Module)
   ($.module /._
@@ -41,5 +83,7 @@
                           {34 {}
                               56 {}
                               78 {90 {}}}))])]
-            [/finger.documentation
+            [..\\parser
+             
+             /finger.documentation
              /zipper.documentation]))