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/cache.lux | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux
index 84b8aaa02..989b205a3 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -19,7 +19,7 @@
       ["[0]" set]
       ["[0]" dictionary]]]
     [math
-     ["[0]" random {"+" [Random]} ("[1]\[0]" monad)]
+     ["[0]" random {"+" [Random]} ("[1]#[0]" monad)]
      [number
       ["n" nat]]]
     [world
@@ -48,8 +48,8 @@
 (def: type
   (Random Type)
   ($_ random.either
-      (random\in //artifact/type.lux_library)
-      (random\in //artifact/type.jvm_library)))
+      (random#in //artifact/type.lux_library)
+      (random#in //artifact/type.jvm_library)))
 
 (def: profile
   (Random [Artifact Profile XML])
@@ -64,7 +64,7 @@
 (def: content
   (Random Binary)
   (do [! random.monad]
-    [content_size (\ ! each (n.% 100) random.nat)]
+    [content_size (# ! each (n.% 100) random.nat)]
     (_binary.random content_size)))
 
 (def: package
@@ -82,7 +82,7 @@
   (do [! random.monad]
     [[main_dependency main_package] ..package
      dependencies (|> (//package.dependencies main_package)
-                      (\ try.monad each set.list)
+                      (# try.monad each set.list)
                       (try.else (list))
                       (monad.each ! (function (_ dependency)
                                       (do !
@@ -105,7 +105,7 @@
      home (random.ascii/alpha 5)
      working_directory (random.ascii/alpha 5)
      .let [fs (: (file.System Async)
-                 (file.mock (\ file.default separator)))
+                 (file.mock (# file.default separator)))
            program (program.async (program.mock environment.empty home working_directory))]]
     (in (do async.monad
           [wrote! (/.write_one program fs dependency expected_package)
@@ -115,7 +115,7 @@
                         (do try.monad
                           [_ wrote!
                            actual_package read!]
-                          (in (\ //package.equivalence =
+                          (in (# //package.equivalence =
                                  (with@ //package.#origin {//repository/origin.#Local ""} expected_package)
                                  actual_package)))))))))
 
@@ -126,7 +126,7 @@
      home (random.ascii/alpha 5)
      working_directory (random.ascii/alpha 5)
      .let [fs (: (file.System Async)
-                 (file.mock (\ file.default separator)))
+                 (file.mock (# file.default separator)))
            program (program.async (program.mock environment.empty home working_directory))]]
     (in (do async.monad
           [wrote! (/.write_all program fs expected)
@@ -136,8 +136,8 @@
                         (do try.monad
                           [_ wrote!
                            actual read!]
-                          (in (\ //dependency/resolution.equivalence =
-                                 (\ dictionary.functor each
+                          (in (# //dependency/resolution.equivalence =
+                                 (# dictionary.functor each
                                     (with@ //package.#origin {//repository/origin.#Local ""})
                                     expected)
                                  actual)))))))))
-- 
cgit v1.2.3