Re-named directives to declarations.

2 files changed, 51 insertions, 64 deletions

diff --git a/stdlib/source/documentation/lux/data/collection/tree/finger.lux b/stdlib/source/documentation/lux/data/collection/tree/finger.lux
index 31f2dac1f..7386f313e 100644
--- a/stdlib/source/documentation/lux/data/collection/tree/finger.lux
+++ b/stdlib/source/documentation/lux/data/collection/tree/finger.lux
@@ -1,7 +1,7 @@
 (.require
  [library
   [lux (.except list)
-   ["$" documentation (.only documentation:)]
+   ["$" documentation]
    [data
     ["[0]" text (.only \n)
      ["%" \\format (.only format)]]]
@@ -10,48 +10,40 @@
  [\\library
   ["[0]" /]])
 
-(documentation: (/.Tree @ tag value)
-  "A finger tree.")
+(.def .public documentation
+  (.List $.Module)
+  ($.module /._
+            ""
+            [($.default /.tag)
+             ($.default /.root)
 
-(documentation: (/.Builder @ tag)
-  "A builder for finter tree structures.")
+             ($.documentation (/.Tree @ tag value)
+               "A finger tree.")
 
-(documentation: /.builder
-  "A new builder using the given monoid."
-  [(builder monoid)])
+             ($.documentation (/.Builder @ tag)
+               "A builder for finter tree structures.")
 
-(documentation: /.value
-  ""
-  [(value tree)])
+             ($.documentation /.builder
+               "A new builder using the given monoid."
+               [(builder monoid)])
 
-(documentation: /.tags
-  ""
-  [(tags tree)])
+             ($.documentation /.value
+               ""
+               [(value tree)])
 
-(documentation: /.values
-  ""
-  [(values tree)])
+             ($.documentation /.tags
+               ""
+               [(tags tree)])
 
-(documentation: /.one
-  "Finds one value that meets the predicate."
-  [(one predicate tree)])
+             ($.documentation /.values
+               ""
+               [(values tree)])
 
-(documentation: /.exists?
-  "Verifies that a value exists which meets the predicate."
-  [(exists? predicate tree)])
+             ($.documentation /.one
+               "Finds one value that meets the predicate."
+               [(one predicate tree)])
 
-(.def .public documentation
-  (.List $.Module)
-  ($.module /._
-            ""
-            [..Tree
-             ..Builder
-             ..builder
-             ..value
-             ..tags
-             ..values
-             ..one
-             ..exists?
-             ($.default /.tag)
-             ($.default /.root)]
+             ($.documentation /.exists?
+               "Verifies that a value exists which meets the predicate."
+               [(exists? predicate tree)])]
             []))
diff --git a/stdlib/source/documentation/lux/data/collection/tree/zipper.lux b/stdlib/source/documentation/lux/data/collection/tree/zipper.lux
index 4ad5aae46..76fb1602c 100644
--- a/stdlib/source/documentation/lux/data/collection/tree/zipper.lux
+++ b/stdlib/source/documentation/lux/data/collection/tree/zipper.lux
@@ -1,7 +1,7 @@
 (.require
  [library
   [lux (.except list)
-   ["$" documentation (.only documentation:)]
+   ["$" documentation]
    [data
     ["[0]" text (.only \n)
      ["%" \\format (.only format)]]]
@@ -10,35 +10,11 @@
  [\\library
   ["[0]" /]])
 
-(documentation: (/.Zipper it)
-  "Tree zippers, for easy navigation and editing of trees.")
-
-(documentation: /.set
-  ""
-  [(set value zipper)])
-
-(documentation: /.update
-  ""
-  [(update transform zipper)])
-
-(documentation: /.interpose
-  ""
-  [(interpose value zipper)])
-
-(documentation: /.adopt
-  ""
-  [(adopt value zipper)])
-
 (.def .public documentation
   (.List $.Module)
   ($.module /._
             ""
-            [..Zipper
-             ..set
-             ..update
-             ..interpose
-             ..adopt
-             ($.default /.equivalence)
+            [($.default /.equivalence)
              ($.default /.zipper)
              ($.default /.tree)
              ($.default /.value)
@@ -60,5 +36,24 @@
              ($.default /.insert_left)
              ($.default /.insert_right)
              ($.default /.functor)
-             ($.default /.comonad)]
+             ($.default /.comonad)
+
+             ($.documentation (/.Zipper it)
+               "Tree zippers, for easy navigation and editing of trees.")
+
+             ($.documentation /.set
+               ""
+               [(set value zipper)])
+
+             ($.documentation /.update
+               ""
+               [(update transform zipper)])
+
+             ($.documentation /.interpose
+               ""
+               [(interpose value zipper)])
+
+             ($.documentation /.adopt
+               ""
+               [(adopt value zipper)])]
             []))