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

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

diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux
index 7d3e57392..8a9a69e7c 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -11,10 +11,10 @@
     [data
      [binary {"+" [Binary]}]
      ["[0]" product]
-     ["[0]" text ("[1]\[0]" equivalence)
+     ["[0]" text ("[1]#[0]" equivalence)
       ["%" format {"+" [format]}]]
      [collection
-      ["[0]" list ("[1]\[0]" functor)]
+      ["[0]" list ("[1]#[0]" functor)]
       ["[0]" set]]]
     [math
      ["[0]" random {"+" [Random]}]
@@ -43,15 +43,15 @@
 (def: (files prefix)
   (-> Path (Random (List [Path Binary])))
   (do [! random.monad]
-    [count (\ ! each (n.% 10) random.nat)
+    [count (# ! each (n.% 10) random.nat)
      names (random.set text.hash count ..node_name)
      contents (random.list count ($binary.random 100))]
-    (in (list.zipped/2 (list\each (|>> (format prefix)) (set.list names))
+    (in (list.zipped/2 (list#each (|>> (format prefix)) (set.list names))
                        contents))))
 
 (def: (create_file! fs [path content])
   (-> (file.System Async) [Path Binary] (Async (Try Any)))
-  (\ fs write content path))
+  (# fs write content path))
 
 (def: (create_directory! fs path files)
   (-> (file.System Async) Path (List [Path Binary]) (Async (Try Any)))
@@ -63,11 +63,11 @@
 
 (def: (directory_exists? fs)
   (-> (file.System Async) Path (Async (Try Bit)))
-  (|>> (\ fs directory?) (try.lifted async.monad)))
+  (|>> (# fs directory?) (try.lifted async.monad)))
 
 (def: (file_exists? fs)
   (-> (file.System Async) Path (Async (Try Bit)))
-  (|>> (\ fs file?) (try.lifted async.monad)))
+  (|>> (# fs file?) (try.lifted async.monad)))
 
 (def: (assets_exist? fs directory_path files)
   (-> (file.System Async) Path (List [Path Binary]) (Async (Try Bit)))
@@ -75,7 +75,7 @@
     [directory_exists? (..directory_exists? fs directory_path)
      files_exist? (: (Action (List Bit))
                      (|> files
-                         (list\each product.left)
+                         (list#each product.left)
                          (monad.each ///action.monad (..file_exists? fs))))]
     (in (and directory_exists?
              (list.every? (|>>) files_exist?)))))
@@ -87,8 +87,8 @@
         [context ..node_name
          target ..node_name
          sub ..node_name
-         .let [fs (file.mock (\ file.default separator))
-               / (\ fs separator)
+         .let [fs (file.mock (# file.default separator))
+               / (# fs separator)
                target_path (format context / target)
                sub_path (format target_path / sub)]
          direct_files (..files (format target_path /))
@@ -107,13 +107,13 @@
                           context_exists!/post (..directory_exists? fs context)
                           target_exists!/post (..assets_exist? fs target_path direct_files)
                           sub_exists!/post (..assets_exist? fs sub_path sub_files)
-                          logging (\ console read_line [])]
+                          logging (# console read_line [])]
                          (in (and (and context_exists!/pre
                                        context_exists!/post)
                                   (and target_exists!/pre
                                        (not target_exists!/post))
                                   (and sub_exists!/pre
                                        (not sub_exists!/post))
-                                  (text\= (/.success target_path) logging))))]
+                                  (text#= (/.success target_path) logging))))]
               (_.cover' [/.do! /.success]
                         (try.else false verdict)))))))
-- 
cgit v1.2.3