From 2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 15:39:55 -0400
Subject: Re-named \ => # && \\ => ##

---
 stdlib/source/documentation/lux.lux                | 68 +++++++++++-----------
 .../documentation/lux/control/concatenative.lux    |  6 +-
 .../lux/control/concurrency/actor.lux              |  4 +-
 stdlib/source/documentation/lux/control/pipe.lux   |  2 +-
 .../source/documentation/lux/data/color/named.lux  | 10 ++--
 stdlib/source/documentation/lux/data/product.lux   |  2 +-
 .../source/documentation/lux/data/text/unicode.lux |  2 +-
 .../documentation/lux/data/text/unicode/block.lux  |  8 +--
 .../documentation/lux/data/text/unicode/set.lux    |  2 +-
 stdlib/source/documentation/lux/extension.lux      |  4 +-
 .../source/documentation/lux/locale/language.lux   |  2 +-
 .../source/documentation/lux/locale/territory.lux  |  2 +-
 stdlib/source/documentation/lux/macro/syntax.lux   |  8 +--
 stdlib/source/documentation/lux/math/logic.lux     |  4 +-
 stdlib/source/documentation/lux/type/implicit.lux  | 22 +++----
 stdlib/source/documentation/lux/world.lux          |  4 +-
 16 files changed, 73 insertions(+), 77 deletions(-)

(limited to 'stdlib/source/documentation')

diff --git a/stdlib/source/documentation/lux.lux b/stdlib/source/documentation/lux.lux
index cf7137856..c0edb3240 100644
--- a/stdlib/source/documentation/lux.lux
+++ b/stdlib/source/documentation/lux.lux
@@ -212,15 +212,15 @@
 
 (documentation: /._$
   "Left-association for the application of binary functions over variadic arguments."
-  [(_$ text\composite "Hello, " name ". How are you?")
+  [(_$ text#composite "Hello, " name ". How are you?")
    "=>"
-   (text\composite (text\composite "Hello, " name) ". How are you?")])
+   (text#composite (text#composite "Hello, " name) ". How are you?")])
 
 (documentation: /.$_
   "Right-association for the application of binary functions over variadic arguments."
-  [($_ text\composite "Hello, " name ". How are you?")
+  [($_ text#composite "Hello, " name ". How are you?")
    "=>"
-   (text\composite "Hello, " (text\composite name ". How are you?"))])
+   (text#composite "Hello, " (text#composite name ". How are you?"))])
 
 (documentation: /.if
   "Picks which expression to evaluate based on a bit test value."
@@ -262,25 +262,25 @@
 (documentation: /.|>
   "Piping macro."
   [(|> elems
-       (list\each int\encoded)
+       (list#each int#encoded)
        (interposed " ")
-       (mix text\composite ""))
+       (mix text#composite ""))
    "=>"
-   (mix text\composite ""
+   (mix text#composite ""
         (interposed " "
-                    (list\each int\encoded
+                    (list#each int#encoded
                                elems)))])
 
 (documentation: /.<|
   "Reverse piping macro."
-  [(<| (mix text\composite "")
+  [(<| (mix text#composite "")
        (interposed " ")
-       (list\each int\encoded)
+       (list#each int#encoded)
        elems)
    "=>"
-   (mix text\composite ""
+   (mix text#composite ""
         (interposed " "
-                    (list\each int\encoded
+                    (list#each int#encoded
                                elems)))])
 
 (documentation: /.template
@@ -567,30 +567,30 @@
   "Opens a implementation and generates a definition for each of its members (including nested members)."
   [(open: "i:[0]" order)
    "=>"
-   (def: i:= (\ order =))
-   (def: i:< (\ order <))])
+   (def: i:= (# order =))
+   (def: i:< (# order <))])
 
 (documentation: /.|>>
   "Similar to the piping macro, but rather than taking an initial object to work on, creates a function for taking it."
-  [(|>> (list\each int\encoded)
+  [(|>> (list#each int#encoded)
         (interposed " ")
-        (mix text\composite ""))
+        (mix text#composite ""))
    "=>"
    (function (_ <it>)
-     (mix text\composite ""
+     (mix text#composite ""
           (interposed " "
-                      (list\each int\encoded <it>))))])
+                      (list#each int#encoded <it>))))])
 
 (documentation: /.<<|
   "Similar to the reverse piping macro, but rather than taking an initial object to work on, creates a function for taking it."
-  [(<<| (mix text\composite "")
+  [(<<| (mix text#composite "")
         (interposed " ")
-        (list\each int\encoded))
+        (list#each int#encoded))
    "=>"
    (function (_ <it>)
-     (mix text\composite ""
+     (mix text#composite ""
           (interposed " "
-                      (list\each int\encoded
+                      (list#each int#encoded
                                  <it>))))])
 
 (documentation: /.module:
@@ -601,17 +601,17 @@
        ["M" monad "*"]]
       [data
        maybe
-       ["[0]" name ("[1]\[0]" codec)]]
+       ["[0]" name ("[1]#[0]" codec)]]
       [macro
        code]]
      [//
       [type ("[0]" equivalence)]])])
 
-(documentation: /.\
+(documentation: /.#
   "Allows accessing the value of a implementation's member."
-  [(\ codec encoded)]
+  [(# codec encoded)]
   ["Also allows using that value as a function."
-   (\ codec encoded +123)])
+   (# codec encoded +123)])
 
 (documentation: /.with@
   "Sets the value of a record at a given tag."
@@ -641,7 +641,7 @@
      (-> (List Type) Type Type)
      (case type
        {.#Primitive name params}
-       {.#Primitive name (list\each (reduced env) params)}
+       {.#Primitive name (list#each (reduced env) params)}
 
        (^template [<tag>]
          [{<tag> left right}
@@ -709,7 +709,7 @@
        [<tests> (template [<function> <parameter> <expected>]
                   [(cover [<function>]
                           (compare <text>
-                                   (\ codec encoded <function> <parameter>)))]
+                                   (# codec encoded <function> <parameter>)))]
 
                   [bit #1                              "#1"]
                   [int +123                            "+123"]
@@ -751,7 +751,7 @@
           \n "Useful in situations where the result of a branch depends on further refinements on the values being matched.")
   [(case (split (size static) uri)
      (^multi {#Some [chunk uri']}
-             [(text\= static chunk) #1])
+             [(text#= static chunk) #1])
      (match_uri endpoint? parts' uri')
 
      _
@@ -760,7 +760,7 @@
    "The example above can be rewritten as..."
    (case (split (size static) uri)
      (^multi {#Some [chunk uri']}
-             (text\= static chunk))
+             (text#= static chunk))
      (match_uri endpoint? parts' uri')
 
      _
@@ -778,7 +778,7 @@
   ["In the example below, 0 corresponds to the 'a' variable."
    (def: .public (of_list list)
      (All (_ a) (-> (List a) (Row a)))
-     (list\mix add
+     (list#mix add
                (: (Row (:parameter 0))
                   empty)
                list))])
@@ -796,9 +796,9 @@
 (documentation: /.^@
   "Allows you to simultaneously bind and de-structure a value."
   [(def: (hash (^@ set [member_hash _]))
-     (list\mix (function (_ elem acc)
+     (list#mix (function (_ elem acc)
                  (+ acc
-                    (\ member_hash hash elem)))
+                    (# member_hash hash elem)))
                0
                (set.list set)))])
 
@@ -993,7 +993,7 @@
              ..|>>
              ..<<|
              ..module:
-             ..\
+             ..#
              ..with@
              ..revised@
              ..^template
diff --git a/stdlib/source/documentation/lux/control/concatenative.lux b/stdlib/source/documentation/lux/control/concatenative.lux
index 745cca04f..21b77e6a3 100644
--- a/stdlib/source/documentation/lux/control/concatenative.lux
+++ b/stdlib/source/documentation/lux/control/concatenative.lux
@@ -3,10 +3,8 @@
    [lux {"-" [if loop]}
     ["$" documentation {"+" [documentation:]}]
     [data
-     [text {"+" [\n]}
-      ["%" format {"+" [format]}]]
-     [collection
-      ["[0]" list ("[1]\[0]" monad)]]]
+     [text
+      ["%" format {"+" [format]}]]]
     [macro
      ["[0]" template]]
     [math
diff --git a/stdlib/source/documentation/lux/control/concurrency/actor.lux b/stdlib/source/documentation/lux/control/concurrency/actor.lux
index a030eabaf..eb0f0656a 100644
--- a/stdlib/source/documentation/lux/control/concurrency/actor.lux
+++ b/stdlib/source/documentation/lux/control/concurrency/actor.lux
@@ -4,9 +4,7 @@
     ["$" documentation {"+" [documentation:]}]
     [data
      [text {"+" [\n]}
-      ["%" format {"+" [format]}]]
-     [collection
-      ["[0]" list ("[1]\[0]" monad)]]]
+      ["%" format {"+" [format]}]]]
     [macro
      ["[0]" template]]]]
   [\\library
diff --git a/stdlib/source/documentation/lux/control/pipe.lux b/stdlib/source/documentation/lux/control/pipe.lux
index 9f67f5c1b..d55da0a4e 100644
--- a/stdlib/source/documentation/lux/control/pipe.lux
+++ b/stdlib/source/documentation/lux/control/pipe.lux
@@ -80,7 +80,7 @@
   [(|> +5
        (tuple> [(i.* +10)]
                [-- (i./ +2)]
-               [i\encoded]))
+               [i#encoded]))
    "=>"
    [+50 +2 "+5"]])
 
diff --git a/stdlib/source/documentation/lux/data/color/named.lux b/stdlib/source/documentation/lux/data/color/named.lux
index dbd470cad..fe66584e0 100644
--- a/stdlib/source/documentation/lux/data/color/named.lux
+++ b/stdlib/source/documentation/lux/data/color/named.lux
@@ -6,7 +6,7 @@
      ["<>" parser
       ["<[0]>" code]]]
     [data
-     ["[0]" text {"+" [\n]}
+     ["[0]" text
       ["%" format {"+" [format]}]]]
     [macro
      [syntax {"+" [syntax:]}]
@@ -14,7 +14,7 @@
      ["[0]" template]]
     [math
      [number
-      ["[0]" nat ("hex\[0]" hex)]]]]]
+      ["[0]" nat ("hex#[0]" hex)]]]]]
   [\\library
    ["[0]" /
     ["/[1]" //]]])
@@ -23,9 +23,9 @@
   [(documentation: <name>
      (let [[red green blue] (//.rgb <name>)
            [_ name] (name_of <name>)]
-       (format "R:" (hex\encoded red)
-               " G:" (hex\encoded green)
-               " B:" (hex\encoded blue)
+       (format "R:" (hex#encoded red)
+               " G:" (hex#encoded green)
+               " B:" (hex#encoded blue)
                " | " (text.replaced "_" " " name))))]
 
   [/.alice_blue]
diff --git a/stdlib/source/documentation/lux/data/product.lux b/stdlib/source/documentation/lux/data/product.lux
index 7c08ef025..05925ab69 100644
--- a/stdlib/source/documentation/lux/data/product.lux
+++ b/stdlib/source/documentation/lux/data/product.lux
@@ -3,7 +3,7 @@
    [lux {"-" [nat int rev list type or and]}
     ["$" documentation {"+" [documentation:]}]
     [data
-     [text {"+" [\n]}
+     [text
       ["%" format {"+" [format]}]]]
     [macro
      ["[0]" template]]]]
diff --git a/stdlib/source/documentation/lux/data/text/unicode.lux b/stdlib/source/documentation/lux/data/text/unicode.lux
index 8acab1227..e4a5cbcff 100644
--- a/stdlib/source/documentation/lux/data/text/unicode.lux
+++ b/stdlib/source/documentation/lux/data/text/unicode.lux
@@ -3,7 +3,7 @@
    [lux "*"
     ["$" documentation {"+" [documentation:]}]
     [data
-     [text {"+" [\n]}
+     [text
       ["%" format {"+" [format]}]]
      [collection
       ["[0]" list]]]]]
diff --git a/stdlib/source/documentation/lux/data/text/unicode/block.lux b/stdlib/source/documentation/lux/data/text/unicode/block.lux
index 306bf6567..02612a399 100644
--- a/stdlib/source/documentation/lux/data/text/unicode/block.lux
+++ b/stdlib/source/documentation/lux/data/text/unicode/block.lux
@@ -3,13 +3,13 @@
    [lux "*"
     ["$" documentation {"+" [documentation:]}]
     [data
-     ["[0]" text {"+" [\n]}
+     ["[0]" text
       ["%" format {"+" [format]}]]]
     [macro
      ["[0]" template]]
     [math
      [number
-      ["[0]" nat ("hex\[0]" hex)]]]]]
+      ["[0]" nat ("hex#[0]" hex)]]]]]
   [\\library
    ["[0]" /]])
 
@@ -27,8 +27,8 @@
 (template [<name>]
   [(documentation: <name>
      (let [[_ name] (name_of <name>)]
-       (format (hex\encoded (/.start <name>))
-               "-" (hex\encoded (/.end <name>))
+       (format (hex#encoded (/.start <name>))
+               "-" (hex#encoded (/.end <name>))
                " | " (text.replaced "_" " " name))))]
 
   [/.basic_latin]
diff --git a/stdlib/source/documentation/lux/data/text/unicode/set.lux b/stdlib/source/documentation/lux/data/text/unicode/set.lux
index dedb45c40..eb3a12f1b 100644
--- a/stdlib/source/documentation/lux/data/text/unicode/set.lux
+++ b/stdlib/source/documentation/lux/data/text/unicode/set.lux
@@ -3,7 +3,7 @@
    [lux "*"
     ["$" documentation {"+" [documentation:]}]
     [data
-     [text {"+" [\n]}
+     [text
       ["%" format {"+" [format]}]]]
     [macro
      ["[0]" template]]]]
diff --git a/stdlib/source/documentation/lux/extension.lux b/stdlib/source/documentation/lux/extension.lux
index 0172abaf7..070a3ad98 100644
--- a/stdlib/source/documentation/lux/extension.lux
+++ b/stdlib/source/documentation/lux/extension.lux
@@ -7,7 +7,7 @@
      ["<>" parser
       ["<[0]>" code]]]
     [data
-     ["[0]" text {"+" [\n]}
+     [text
       ["%" format {"+" [format]}]]
      [collection
       ["[0]" row]]]
@@ -39,7 +39,7 @@
   ""
   [(generation: ("my generation" self phase archive [pass_through <synthesis>.any])
      (for [@.jvm
-           (\ phase.monad each (|>> {jvm.#Embedded}
+           (# phase.monad each (|>> {jvm.#Embedded}
                                     row.row)
               (phase archive pass_through))]
           (phase archive pass_through)))])
diff --git a/stdlib/source/documentation/lux/locale/language.lux b/stdlib/source/documentation/lux/locale/language.lux
index 27b562d64..fca2ce852 100644
--- a/stdlib/source/documentation/lux/locale/language.lux
+++ b/stdlib/source/documentation/lux/locale/language.lux
@@ -6,7 +6,7 @@
      [text
       ["%" format {"+" [format]}]]
      [collection
-      ["[0]" list ("[1]\[0]" monoid)]]]]]
+      ["[0]" list]]]]]
   [\\library
    ["[0]" /]])
 
diff --git a/stdlib/source/documentation/lux/locale/territory.lux b/stdlib/source/documentation/lux/locale/territory.lux
index 100f1b18f..094a8b390 100644
--- a/stdlib/source/documentation/lux/locale/territory.lux
+++ b/stdlib/source/documentation/lux/locale/territory.lux
@@ -6,7 +6,7 @@
      [text
       ["%" format {"+" [format]}]]
      [collection
-      ["[0]" list ("[1]\[0]" monoid)]]]]]
+      ["[0]" list]]]]]
   [\\library
    ["[0]" /]])
 
diff --git a/stdlib/source/documentation/lux/macro/syntax.lux b/stdlib/source/documentation/lux/macro/syntax.lux
index 8efdf8a93..9d6cf8db2 100644
--- a/stdlib/source/documentation/lux/macro/syntax.lux
+++ b/stdlib/source/documentation/lux/macro/syntax.lux
@@ -29,11 +29,11 @@
                              interfaces (tuple (some (super_class_decl^ imports class_vars)))
                              constructor_args (constructor_args^ imports class_vars)
                              methods (some (overriden_method_def^ imports))])
-     (let [def_code ($_ text\composite "anon-class:"
+     (let [def_code ($_ text#composite "anon-class:"
                         (spaced (list (super_class_decl$ (maybe.else object_super_class super))
-                                      (with_brackets (spaced (list\each super_class_decl$ interfaces)))
-                                      (with_brackets (spaced (list\each constructor_arg$ constructor_args)))
-                                      (with_brackets (spaced (list\each (method_def$ id) methods))))))]
+                                      (with_brackets (spaced (list#each super_class_decl$ interfaces)))
+                                      (with_brackets (spaced (list#each constructor_arg$ constructor_args)))
+                                      (with_brackets (spaced (list#each (method_def$ id) methods))))))]
        (in (list (` ((~ (code.text def_code))))))))])
 
 (.def: .public documentation
diff --git a/stdlib/source/documentation/lux/math/logic.lux b/stdlib/source/documentation/lux/math/logic.lux
index 3bb217d18..ca7e1786e 100644
--- a/stdlib/source/documentation/lux/math/logic.lux
+++ b/stdlib/source/documentation/lux/math/logic.lux
@@ -6,13 +6,13 @@
      [text
       ["%" format {"+" [format]}]]
      [collection
-      ["[0]" list ("[1]\[0]" monoid)]]]]]
+      ["[0]" list ("[1]#[0]" monoid)]]]]]
   ["[0]" / "_"
    ["[1][0]" continuous]
    ["[1][0]" fuzzy]])
 
 (.def: .public documentation
   (.List $.Module)
-  ($_ list\composite
+  ($_ list#composite
       /continuous.documentation
       /fuzzy.documentation))
diff --git a/stdlib/source/documentation/lux/type/implicit.lux b/stdlib/source/documentation/lux/type/implicit.lux
index 934557429..fe9cfe21a 100644
--- a/stdlib/source/documentation/lux/type/implicit.lux
+++ b/stdlib/source/documentation/lux/type/implicit.lux
@@ -13,7 +13,7 @@
   [\\library
    ["[0]" /]])
 
-(documentation: /.\\
+(documentation: /.##
   (format "Automatic implementation selection (for type-class style polymorphism)."
           \n "This feature layers type-class style polymorphism on top of Lux's signatures and implementations."
           \n "When calling a polymorphic function, or using a polymorphic constant,"
@@ -26,35 +26,35 @@
           \n \n "Caveat emptor: You need to make sure to import the module of any implementation you want to use."
           \n "Otherwise, this macro will not find it.")
   ["Nat equivalence"
-   (\ number.equivalence = x y)
-   (\\ = x y)]
+   (# number.equivalence = x y)
+   (## = x y)]
   ["Can optionally add the prefix of the module where the signature was defined."
-   (\\ equivalence.= x y)]
+   (## equivalence.= x y)]
   ["(List Nat) equivalence"
-   (\\ =
+   (## =
        (list.indices 10)
        (list.indices 10))]
   ["(Functor List) each"
-   (\\ each ++ (list.indices 10))])
+   (## each ++ (list.indices 10))])
 
 (documentation: /.with
   "Establish lexical bindings for implementations that will be prioritized over non-lexically-bound implementations."
   [(with [n.addition]
-     (n.= (\ n.addition composite left right)
-          (\\ composite left right)))])
+     (n.= (# n.addition composite left right)
+          (## composite left right)))])
 
 (documentation: /.implicit:
   "Establish local definitions for implementations that will be prioritized over foreign definitions."
   [(implicit: [n.multiplication])
    
-   (n.= (\ n.multiplication composite left right)
-        (\\ composite left right))])
+   (n.= (# n.multiplication composite left right)
+        (## composite left right))])
 
 (.def: .public documentation
   (.List $.Module)
   ($.module /._
             ""
-            [..\\
+            [..##
              ..with
              ..implicit:]
             []))
diff --git a/stdlib/source/documentation/lux/world.lux b/stdlib/source/documentation/lux/world.lux
index bb7af0722..af4c8446c 100644
--- a/stdlib/source/documentation/lux/world.lux
+++ b/stdlib/source/documentation/lux/world.lux
@@ -8,7 +8,7 @@
      ["[0]" io]]
     [data
      [collection
-      ["[0]" list ("[1]\[0]" monoid)]]]]]
+      ["[0]" list ("[1]#[0]" monoid)]]]]]
   ["[0]" / "_"
    ["[1][0]" console]
    ["[1][0]" file]
@@ -23,7 +23,7 @@
 
 (.def: .public documentation
   (.List $.Module)
-  ($_ list\composite
+  ($_ list#composite
       /console.documentation
       /file.documentation
       /input/keyboard.documentation
-- 
cgit v1.2.3