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

(limited to 'stdlib/source/test/aedifex/cli.lux')

diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux
index d08d5f1a1..16ae29ab4 100644
--- a/stdlib/source/test/aedifex/cli.lux
+++ b/stdlib/source/test/aedifex/cli.lux
@@ -16,7 +16,7 @@
      [collection
       ["[0]" list]]]
     [math
-     ["[0]" random {"+" [Random]} ("[1]\[0]" monad)]]]]
+     ["[0]" random {"+" [Random]} ("[1]#[0]" monad)]]]]
   [\\program
    ["[0]" /
     ["/[1]" // "_"
@@ -24,22 +24,22 @@
 
 (def: compilation
   (Random /.Compilation)
-  (random.or (random\in [])
-             (random\in [])))
+  (random.or (random#in [])
+             (random#in [])))
 
 (def: command
   (Random /.Command)
   ($_ random.or
       ... #Version
-      (random\in [])
+      (random#in [])
       ... #Clean
-      (random\in [])
+      (random#in [])
       ... #POM
-      (random\in [])
+      (random#in [])
       ... #Dependencies
-      (random\in [])
+      (random#in [])
       ... #Install
-      (random\in [])
+      (random#in [])
       ... #Deploy
       ($_ random.and
           (random.ascii/alpha 1)
@@ -77,8 +77,8 @@
                 ..format
                 (cli.result /.command)
                 (case> {try.#Success [names actual]}
-                       (and (\ (list.equivalence text.equivalence) = (list //.default) names)
-                            (\ /.equivalence = expected actual))
+                       (and (# (list.equivalence text.equivalence) = (list //.default) names)
+                            (# /.equivalence = expected actual))
                        
                        {try.#Failure error}
                        false)))))
@@ -94,8 +94,8 @@
                 (list& "with" expected_profile)
                 (cli.result /.command)
                 (case> {try.#Success [actual_profile actual_command]}
-                       (and (\ (list.equivalence text.equivalence) = (list expected_profile //.default) actual_profile)
-                            (\ /.equivalence = expected_command actual_command))
+                       (and (# (list.equivalence text.equivalence) = (list expected_profile //.default) actual_profile)
+                            (# /.equivalence = expected_command actual_command))
                        
                        {try.#Failure error}
                        false)))))
-- 
cgit v1.2.3