From 34e310622bdeb1d0588c0664c0e78cbaa84f837c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 2 Dec 2020 06:42:20 -0400
Subject: Re-named "::" and ":::" macros to "\" and "\\", to be consistent with
 the convention that only macros that deal with types may start with a colon.

---
 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 81d5fe136..7923eb8c5 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -58,7 +58,7 @@
 (def: content
   (Random Binary)
   (do {! random.monad}
-    [content-size (:: ! map (n.% 100) random.nat)]
+    [content-size (\ ! map (n.% 100) random.nat)]
     (_binary.random content-size)))
 
 (def: package
@@ -76,7 +76,7 @@
   (do {! random.monad}
     [[main-dependency main-package] ..package
      dependencies (|> (//package.dependencies main-package)
-                      (:: try.monad map set.to-list)
+                      (\ try.monad map set.to-list)
                       (try.default (list))
                       (monad.map ! (function (_ dependency)
                                      (do !
@@ -97,7 +97,7 @@
   (do {! random.monad}
     [[dependency expected-package] ..package
      #let [fs (: (file.System Promise)
-                 (file.mock (:: file.default separator)))]]
+                 (file.mock (\ file.default separator)))]]
     (wrap (do promise.monad
             [wrote! (/.write-one fs dependency expected-package)
              read! (/.read-one fs dependency)]
@@ -106,16 +106,16 @@
                           (do try.monad
                             [_ wrote!
                              actual-package read!]
-                            (wrap (:: //package.equivalence =
-                                      (set@ #//package.origin #//package.Local expected-package)
-                                      actual-package)))))))))
+                            (wrap (\ //package.equivalence =
+                                     (set@ #//package.origin #//package.Local expected-package)
+                                     actual-package)))))))))
 
 (def: plural
   Test
   (do {! random.monad}
     [expected ..resolution
      #let [fs (: (file.System Promise)
-                 (file.mock (:: file.default separator)))]]
+                 (file.mock (\ file.default separator)))]]
     (wrap (do promise.monad
             [wrote! (/.write-all fs expected)
              read! (/.read-all fs (dictionary.keys expected) //dependency/resolution.empty)]
@@ -124,11 +124,11 @@
                           (do try.monad
                             [_ wrote!
                              actual read!]
-                            (wrap (:: //dependency/resolution.equivalence =
-                                      (:: dictionary.functor map
-                                          (set@ #//package.origin #//package.Local)
-                                          expected)
-                                      actual)))))))))
+                            (wrap (\ //dependency/resolution.equivalence =
+                                     (\ dictionary.functor map
+                                        (set@ #//package.origin #//package.Local)
+                                        expected)
+                                     actual)))))))))
 
 (def: #export test
   Test
-- 
cgit v1.2.3