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/program/aedifex.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 6bc8f1f90..6732e711f 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -8,12 +8,12 @@
     [control
      [pipe {"+" [do>]}]
      ["[0]" io {"+" [IO]}]
-     ["[0]" try {"+" [Try]} ("[1]\[0]" functor)]
+     ["[0]" try {"+" [Try]} ("[1]#[0]" functor)]
      ["[0]" exception {"+" [exception:]}]
      [parser
       [environment {"+" [Environment]}]]
      [concurrency
-      ["[0]" async {"+" [Async]} ("[1]\[0]" monad)]]]
+      ["[0]" async {"+" [Async]} ("[1]#[0]" monad)]]]
     [data
      [binary {"+" [Binary]}]
      ["[0]" text
@@ -25,7 +25,7 @@
      [collection
       ["[0]" set]
       ["[0]" dictionary {"+" [Dictionary]}]
-      ["[0]" list ("[1]\[0]" functor)]]]
+      ["[0]" list ("[1]#[0]" functor)]]]
     [tool
      [compiler
       [language
@@ -68,7 +68,7 @@
   (-> /.Profile (List (Repository Async)))
   (|>> (value@ /.#repositories)
        set.list
-       (list\each (|>> (/repository/remote.repository http.default {.#None}) /repository.async))))
+       (list#each (|>> (/repository/remote.repository http.default {.#None}) /repository.async))))
 
 (def: (with_dependencies program console command profile)
   (All (_ a)
@@ -89,7 +89,7 @@
 
          _
          (do async.monad
-           [_ (\ program exit exit_code)]
+           [_ (# program exit exit_code)]
            (in {try.#Failure ""})))]
     (in output)))
 
@@ -103,13 +103,13 @@
 
 (def: succeed!
   (IO Any)
-  (\ program.default exit shell.normal))
+  (# program.default exit shell.normal))
 
 (def: (fail! error)
   (-> Text (IO Any))
   (exec
     (debug.log! error)
-    (\ program.default exit shell.error)))
+    (# program.default exit shell.error)))
 
 (def: (command action)
   (All (_ a) (-> (Async (Try a)) (IO Any)))
@@ -122,12 +122,12 @@
 
              {try.#Failure error}
              (..fail! error))))
-    (\ io.monad in [])))
+    (# io.monad in [])))
 
 (program: [[profiles operation] /cli.command]
   (do [! io.monad]
     [?console console.default]
-    (case (try\each console.async ?console)
+    (case (try#each console.async ?console)
       {try.#Failure error}
       (..fail! error)
 
@@ -135,7 +135,7 @@
       (case operation
         {/cli.#Version}
         (..command
-         (/command/version.do! console (\ /.monoid identity)))
+         (/command/version.do! console (# /.monoid identity)))
 
         _
         (do !
@@ -176,10 +176,10 @@
                                           profile)
                      
                      {.#None}
-                     (async\in (exception.except ..cannot_find_repository [repository (value@ /.#deploy_repositories profile)])))
+                     (async#in (exception.except ..cannot_find_repository [repository (value@ /.#deploy_repositories profile)])))
                    
                    {.#None}
-                   (async\in (exception.except /.no_identity []))))
+                   (async#in (exception.except /.no_identity []))))
                 
                 {/cli.#Dependencies}
                 (..command
-- 
cgit v1.2.3