From f9e33ae96aec4741385a576719786092c9e68043 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 4 Jun 2022 19:34:42 -0400
Subject: De-sigil-ification: #

---
 stdlib/source/program/aedifex/command/build.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

(limited to 'stdlib/source/program/aedifex/command/build.lux')

diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index d08f7f7b1..0454a4a60 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -122,7 +122,7 @@
 
 (def: (path fs home dependency)
   (All (_ !) (-> (file.System !) Path Dependency Path))
-  (let [/ (# fs separator)
+  (let [/ (at fs separator)
         artifact (the ///dependency.#artifact dependency)]
     (|> artifact
         (///local.uri (the ///artifact.#version artifact))
@@ -178,7 +178,7 @@
                          version (the ///artifact.#version artifact)]
                      (case (dictionary.value identity uniques)
                        {.#Some [current_version current_path]}
-                       (if (# version_order < version current_version)
+                       (if (at version_order < version current_version)
                          (dictionary.has identity [version dependency] uniques)
                          uniques)
                        
@@ -212,7 +212,7 @@
      (let [[read! write!] (is [(Async (Try Any))
                                (async.Resolver (Try Any))]
                               (async.async []))
-           _ (|> (# process <capability> [])
+           _ (|> (at process <capability> [])
                  (async.upon! (function (again ?line)
                                 (case ?line
                                   {try.#Failure error}
@@ -229,7 +229,7 @@
 
                                                    {try.#Success _}
                                                    (async.upon! again
-                                                                (# process <capability> []))))
+                                                                (at process <capability> []))))
                                                (is (Async (Try Any))
                                                    (console.write_line line console))))))
                  io.run!)]
@@ -287,8 +287,8 @@
         {.#Some program_module}
         (do async.monad
           [environment (program.environment async.monad program)
-           .let [home (# program home)
-                 working_directory (# program directory)]]
+           .let [home (at program home)
+                 working_directory (at program directory)]]
           (do ///action.monad
             [[resolution lux] (async#in (..lux resolution (the ///.#lux profile)))
              .let [host_dependencies (..host_dependencies fs home resolution)
@@ -310,7 +310,7 @@
                       [#Python ///.#java "program.py"]
                       [#Lua ///.#java "program.lua"]
                       [#Ruby ///.#java (file.rooted fs "program" ruby_packager.main_file)]))
-                   / (# fs separator)
+                   / (at fs separator)
                    cache_directory (format working_directory / target)]
              _ (is (Async (Try Any))
                    (console.write_line ..start console))
@@ -323,13 +323,13 @@
                                                         (..singular "--target" cache_directory)
                                                         (..singular "--module" program_module)
                                                         (..singular "--configuration" (configuration.format (the ///.#configuration profile)))))]
-             process (# shell execute [(dictionary.composite environment command_environment)
-                                       working_directory
-                                       command
-                                       full_parameters])
+             process (at shell execute [(dictionary.composite environment command_environment)
+                                        working_directory
+                                        command
+                                        full_parameters])
              _ (..log_output! console process)
              _ (..log_error! console process)
-             exit (# process await [])
+             exit (at process await [])
              _ (is (Async (Try Any))
                    (console.write_line (if (i.= shell.normal exit)
                                          ..success
-- 
cgit v1.2.3