Made the "#" character great again!

1 files changed, 43 insertions, 43 deletions

diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index 63d2affb7..c16f7c9ef 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -49,10 +49,10 @@
   (-> Group Name Finder)
   (|>> dictionary.entries
        (list.one (function (_ [dependency package])
-                   (if (and (text\= group (value@ [#///dependency.artifact #///artifact.group] dependency))
-                            (text\= name (value@ [#///dependency.artifact #///artifact.name] dependency)))
-                     {#.Some dependency}
-                     #.None)))))
+                   (if (and (text\= group (value@ [///dependency.#artifact ///artifact.#group] dependency))
+                            (text\= name (value@ [///dependency.#artifact ///artifact.#name] dependency)))
+                     {.#Some dependency}
+                     {.#None})))))
 
 (def: .public lux_group
   Group
@@ -91,11 +91,11 @@
   (-> Resolution Dependency (Try [Resolution Compiler]))
   (let [[[compiler_group compiler_name compiler_version] compiler_type] compiler_dependency]
     (case (..dependency_finder compiler_group compiler_name resolution)
-      {#.Some dependency}
+      {.#Some dependency}
       (case compiler_name
         (^template [<tag> <name>]
           [(^ (static <name>))
-           {#try.Success [(..remove_dependency dependency resolution)
+           {try.#Success [(..remove_dependency dependency resolution)
                           {<tag> dependency}]}])
         ([#JVM ..jvm_compiler_name]
          [#JS ..js_compiler_name]
@@ -112,17 +112,17 @@
 (def: (path fs home dependency)
   (All (_ !) (-> (file.System !) Path Dependency Path))
   (let [/ (\ fs separator)
-        artifact (value@ #///dependency.artifact dependency)]
+        artifact (value@ ///dependency.#artifact dependency)]
     (|> artifact
-        (///local.uri (value@ #///artifact.version artifact))
+        (///local.uri (value@ ///artifact.#version artifact))
         (text.replaced uri.separator /)
         (format home /)
-        (text.suffix (format "." (value@ #///dependency.type dependency))))))
+        (text.suffix (format "." (value@ ///dependency.#type dependency))))))
 
 (def: (libraries fs home)
   (All (_ !) (-> (file.System !) Path Resolution (List Path)))
   (|>> dictionary.keys
-       (list.only (|>> (value@ #///dependency.type)
+       (list.only (|>> (value@ ///dependency.#type)
                        (text\= ///artifact/type.lux_library)))
        (list\each (..path fs home))))
 
@@ -139,39 +139,39 @@
     (loop [left (text.all_split_by ..version_separator left)
            right (text.all_split_by ..version_separator right)]
       (case [left right]
-        [{#.Item leftH leftT} {#.Item rightH rightT}]
+        [{.#Item leftH leftT} {.#Item rightH rightT}]
         (if (text\= leftH rightH)
           (recur leftT rightT)
           (or (n.< (text.size leftH) (text.size rightH))
               (text\< leftH rightH)))
 
-        [{#.Item leftH leftT} #.End]
+        [{.#Item leftH leftT} {.#End}]
         false
 
-        [#.End {#.Item rightH rightT}]
+        [{.#End} {.#Item rightH rightT}]
         true
 
-        [#.End #.End]
+        [{.#End} {.#End}]
         false))))
 
 (def: .public (host_dependencies fs home)
   (All (_ !) (-> (file.System !) Path Resolution (List Path)))
   (|>> dictionary.keys
-       (list.only (|>> (value@ #///dependency.type)
+       (list.only (|>> (value@ ///dependency.#type)
                        (text\= ///artifact/type.lux_library)
                        not))
        (list\mix (function (_ dependency uniques)
-                   (let [artifact (value@ #///dependency.artifact dependency)
-                         identity [(value@ #///artifact.group artifact)
-                                   (value@ #///artifact.name artifact)]
-                         version (value@ #///artifact.version artifact)]
+                   (let [artifact (value@ ///dependency.#artifact dependency)
+                         identity [(value@ ///artifact.#group artifact)
+                                   (value@ ///artifact.#name artifact)]
+                         version (value@ ///artifact.#version artifact)]
                      (case (dictionary.value identity uniques)
-                       {#.Some [current_version current_path]}
+                       {.#Some [current_version current_path]}
                        (if (\ version_order < version current_version)
                          (dictionary.has identity [version dependency] uniques)
                          uniques)
                        
-                       #.None
+                       {.#None}
                        (dictionary.has identity [version dependency] uniques))))
                  (: (Dictionary [Group Name] [Version Dependency])
                     (dictionary.empty (product.hash text.hash text.hash))))
@@ -203,18 +203,18 @@
            _ (|> (\ process <capability> [])
                  (async.upon! (function (recur ?line)
                                 (case ?line
-                                  {#try.Failure error}
+                                  {try.#Failure error}
                                   (if (exception.match? shell.no_more_output error)
-                                    (write! {#try.Success []})
+                                    (write! {try.#Success []})
                                     (async.upon! write! (console.write_line error console)))
                                   
-                                  {#try.Success line}
+                                  {try.#Success line}
                                   (async.upon! (function (_ outcome)
                                                  (case outcome
-                                                   {#try.Failure error}
-                                                   (write! {#try.Failure error})
+                                                   {try.#Failure error}
+                                                   (write! {try.#Failure error})
 
-                                                   {#try.Success _}
+                                                   {try.#Success _}
                                                    (async.upon! recur
                                                                 (\ process <capability> []))))
                                                (console.write_line line console)))))
@@ -245,41 +245,41 @@
 (def: (jvm_class_path host_dependencies)
   (-> (List Path) Text)
   (|> host_dependencies
-      {#.Item "."}
+      {.#Item "."}
       (text.interposed ..jvm_class_path_separator)))
 
 (def: .public (with_jvm_class_path host_dependencies runtime)
   (-> (List Path) ///runtime.Runtime ///runtime.Runtime)
   (case host_dependencies
-    #.End
+    {.#End}
     runtime
 
     _
-    (revised@ #///runtime.parameters
+    (revised@ ///runtime.#parameters
               (|>> (list& "-cp" (..jvm_class_path host_dependencies)))
               runtime)))
 
 (def: .public (do! console program fs shell resolution)
   (-> (Console Async) (Program Async) (file.System Async) (Shell Async) Resolution (Command [Exit Compiler Path]))
   (function (_ profile)
-    (let [target (value@ #///.target profile)]
-      (case (value@ #///.program profile)
-        #.None
+    (let [target (value@ ///.#target profile)]
+      (case (value@ ///.#program profile)
+        {.#None}
         (async\in (exception.except ..no_specified_program []))
 
-        {#.Some program_module}
+        {.#Some program_module}
         (do async.monad
           [environment (program.environment async.monad program)
            .let [home (\ program home)
                  working_directory (\ program directory)]]
           (do ///action.monad
-            [[resolution compiler] (async\in (..compiler resolution (value@ #///.compiler profile)))
+            [[resolution compiler] (async\in (..compiler resolution (value@ ///.#compiler profile)))
              .let [host_dependencies (..host_dependencies fs home resolution)
                    [[command compiler_params] output] (case compiler
                                                         {#JVM dependency}
-                                                        [(|> (value@ #///.java profile)
-                                                             (with@ #///runtime.parameters (list "program._"))
-                                                             (with_jvm_class_path {#.Item (..path fs home dependency) host_dependencies}))
+                                                        [(|> (value@ ///.#java profile)
+                                                             (with@ ///runtime.#parameters (list "program._"))
+                                                             (with_jvm_class_path {.#Item (..path fs home dependency) host_dependencies}))
                                                          "program.jar"]
                                                         
                                                         (^template [<tag> <runtime> <program>]
@@ -288,10 +288,10 @@
                                                                 (..path fs home)
                                                                 (///runtime.for (value@ <runtime> profile)))
                                                             <program>]])
-                                                        ([#JS #///.js "program.js"]
-                                                         [#Python #///.java "program.py"]
-                                                         [#Lua #///.java "program.lua"]
-                                                         [#Ruby #///.java "program.rb"]))
+                                                        ([#JS ///.#js "program.js"]
+                                                         [#Python ///.#java "program.py"]
+                                                         [#Lua ///.#java "program.lua"]
+                                                         [#Ruby ///.#java "program.rb"]))
                    / (\ fs separator)
                    cache_directory (format working_directory / target)]
              _ (console.write_line ..start console)
@@ -299,7 +299,7 @@
                                                         (list "build")
                                                         (..plural "--library" (..libraries fs home resolution))
                                                         (..plural "--host_dependency" host_dependencies)
-                                                        (..plural "--source" (set.list (value@ #///.sources profile)))
+                                                        (..plural "--source" (set.list (value@ ///.#sources profile)))
                                                         (..singular "--target" cache_directory)
                                                         (..singular "--module" program_module)))]
              process (\ shell execute [environment