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/program/aedifex/command/clean.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index d175ae291..bbdec8763 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -22,9 +22,9 @@
   (-> (file.System Async) Path (Async (Try Any)))
   (let [! ///action.monad]
     (|> root
-        (\ fs directory_files)
-        (\ ! each (monad.each ! (\ fs delete)))
-        (\ ! conjoint))))
+        (# fs directory_files)
+        (# ! each (monad.each ! (# fs delete)))
+        (# ! conjoint))))
 
 (def: .public success
   (-> ///.Target Text)
@@ -34,16 +34,16 @@
   (-> (Console Async) (file.System Async) (Command Any))
   (do [! async.monad]
     [.let [target (value@ ///.#target profile)]
-     ? (\ fs directory? target)
+     ? (# fs directory? target)
      _ (let [! ///action.monad]
          (if ?
            (loop [root target]
              (do !
                [_ (..clean_files! fs root)
                 _ (|> root
-                      (\ fs sub_directories)
-                      (\ ! each (monad.each ! recur))
-                      (\ ! conjoint))]
-               (\ fs delete root)))
-           (\ ! in [])))]
+                      (# fs sub_directories)
+                      (# ! each (monad.each ! recur))
+                      (# ! conjoint))]
+               (# fs delete root)))
+           (# ! in [])))]
     (console.write_line (..success target) console)))
-- 
cgit v1.2.3