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/command/clean.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 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 7246d38a7..11570d034 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -42,7 +42,7 @@
 (def: (files prefix)
   (-> Path (Random (List [Path Binary])))
   (do {! random.monad}
-    [count (:: ! map (n.% 10) random.nat)
+    [count (\ ! map (n.% 10) random.nat)
      names (random.set text.hash count ..node-name)
      contents (random.list count (_binary.random 100))]
     (wrap (list.zip/2 (list\map (|>> (format prefix)) (set.to-list names))
@@ -53,7 +53,7 @@
   (do {! (try.with promise.monad)}
     [file (: (Promise (Try (File Promise)))
              (file.get-file promise.monad fs path))]
-    (!.use (:: file over-write) content)))
+    (!.use (\ file over-write) content)))
 
 (def: (create-directory! fs path files)
   (-> (file.System Promise) Path (List [Path Binary]) (Promise (Try Any)))
@@ -89,8 +89,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 /))
-- 
cgit v1.2.3