From f9e33ae96aec4741385a576719786092c9e68043 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 4 Jun 2022 19:34:42 -0400
Subject: De-sigil-ification: #

---
 stdlib/source/test/aedifex/cache.lux | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 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 de334b03d..b9762e9ee 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -64,7 +64,7 @@
 (def: content
   (Random Binary)
   (do [! random.monad]
-    [content_size (# ! each (n.% 100) random.nat)]
+    [content_size (at ! 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)
+                      (at try.monad each set.list)
                       (try.else (list))
                       (monad.each ! (function (_ dependency)
                                       (do !
@@ -105,7 +105,7 @@
      home (random.alphabetic 5)
      working_directory (random.alphabetic 5)
      .let [fs (is (file.System Async)
-                  (file.mock (# file.default separator)))
+                  (file.mock (at 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,9 +115,9 @@
                 (do try.monad
                   [_ wrote!
                    actual_package read!]
-                  (in (# //package.equivalence =
-                         (has //package.#origin {//repository/origin.#Local ""} expected_package)
-                         actual_package)))))))))
+                  (in (at //package.equivalence =
+                          (has //package.#origin {//repository/origin.#Local ""} expected_package)
+                          actual_package)))))))))
 
 (def: plural
   Test
@@ -126,7 +126,7 @@
      home (random.alphabetic 5)
      working_directory (random.alphabetic 5)
      .let [fs (is (file.System Async)
-                  (file.mock (# file.default separator)))
+                  (file.mock (at file.default separator)))
            program (program.async (program.mock environment.empty home working_directory))]]
     (in (do async.monad
           [wrote! (/.write_all program fs expected)
@@ -136,11 +136,11 @@
                 (do try.monad
                   [_ wrote!
                    actual read!]
-                  (in (# //dependency/resolution.equivalence =
-                         (# dictionary.functor each
-                            (has //package.#origin {//repository/origin.#Local ""})
-                            expected)
-                         actual)))))))))
+                  (in (at //dependency/resolution.equivalence =
+                          (at dictionary.functor each
+                              (has //package.#origin {//repository/origin.#Local ""})
+                              expected)
+                          actual)))))))))
 
 (def: .public test
   Test
-- 
cgit v1.2.3