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/project.lux | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/project.lux b/stdlib/source/test/aedifex/project.lux
index aa3d726c3..90686e28e 100644
--- a/stdlib/source/test/aedifex/project.lux
+++ b/stdlib/source/test/aedifex/project.lux
@@ -8,13 +8,13 @@
       ["$[0]" equivalence]
       ["$[0]" monoid]]]
     [control
-     ["[0]" try ("[1]\[0]" functor)]
+     ["[0]" try ("[1]#[0]" functor)]
      ["[0]" exception]]
     [data
      ["[0]" product]
-     ["[0]" text ("[1]\[0]" equivalence)]]
+     ["[0]" text ("[1]#[0]" equivalence)]]
     [math
-     ["[0]" random {"+" [Random]} ("[1]\[0]" monad)]
+     ["[0]" random {"+" [Random]} ("[1]#[0]" monad)]
      [number
       ["n" nat]]]]]
   [//
@@ -27,7 +27,7 @@
 (def: profile
   (Random [//.Name //.Profile])
   (|> @profile.random
-      (random\each (with@ //.#parents (list)))
+      (random#each (with@ //.#parents (list)))
       (random.and (random.ascii/alpha 1))))
 
 (def: .public random
@@ -48,39 +48,39 @@
 
                  (_.cover [/.file]
                           (|> /.file
-                              (text\= "")
+                              (text#= "")
                               not))
                  (do random.monad
                    [[super_name super_profile] ..profile
-                    [dummy_name dummy_profile] (random.only (|>> product.left (text\= super_name) not)
+                    [dummy_name dummy_profile] (random.only (|>> product.left (text#= super_name) not)
                                                             ..profile)
                     [sub_name sub_profile] (random.only (function (_ [name profile])
-                                                          (and (not (text\= super_name name))
-                                                               (not (text\= dummy_name name))))
+                                                          (and (not (text#= super_name name))
+                                                               (not (text#= dummy_name name))))
                                                         ..profile)
                     fake_name (random.only (function (_ name)
-                                             (and (not (text\= super_name name))
-                                                  (not (text\= dummy_name name))
-                                                  (not (text\= sub_name name))))
+                                             (and (not (text#= super_name name))
+                                                  (not (text#= dummy_name name))
+                                                  (not (text#= sub_name name))))
                                            (random.ascii/alpha 1))
-                    .let [project ($_ (\ /.monoid composite)
+                    .let [project ($_ (# /.monoid composite)
                                       (/.project super_name super_profile)
                                       (/.project dummy_name dummy_profile)
                                       (/.project sub_name (with@ //.#parents (list super_name) sub_profile)))
-                          circular ($_ (\ /.monoid composite)
+                          circular ($_ (# /.monoid composite)
                                        (/.project super_name (with@ //.#parents (list sub_name) super_profile))
                                        (/.project dummy_name dummy_profile)
                                        (/.project sub_name (with@ //.#parents (list super_name) sub_profile)))]]
                    ($_ _.and
                        (_.cover [/.profile]
                                 (and (|> (/.profile project super_name)
-                                         (try\each (\ //.equivalence = super_profile))
+                                         (try#each (# //.equivalence = super_profile))
                                          (try.else false))
                                      (|> (/.profile project dummy_name)
-                                         (try\each (\ //.equivalence = dummy_profile))
+                                         (try#each (# //.equivalence = dummy_profile))
                                          (try.else false))
                                      (|> (/.profile project sub_name)
-                                         (try\each (\ //.equivalence = (\ //.monoid composite sub_profile super_profile)))
+                                         (try#each (# //.equivalence = (# //.monoid composite sub_profile super_profile)))
                                          (try.else false))))
                        (_.cover [/.unknown_profile]
                                 (case (/.profile project fake_name)
-- 
cgit v1.2.3