From 17e7566be51df5e428a6b10e6469201a8a9468da Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 7 Aug 2021 02:20:09 -0400
Subject: Made the be/de macros for (co)monadic expression extensible.

---
 stdlib/source/test/aedifex/command/clean.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 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 36ed10b8e..523cf6ccc 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -46,7 +46,7 @@
     [count (\ ! map (n.% 10) random.nat)
      names (random.set text.hash count ..node_name)
      contents (random.list count ($binary.random 100))]
-    (in (list.zipped/2 (list\map (|>> (format prefix)) (set.to_list names))
+    (in (list.zipped/2 (list\map (|>> (format prefix)) (set.list names))
                        contents))))
 
 (def: (create_file! fs [path content])
@@ -87,7 +87,7 @@
         [context ..node_name
          target ..node_name
          sub ..node_name
-         #let [fs (file.mock (\ file.default separator))
+         .let [fs (file.mock (\ file.default separator))
                / (\ fs separator)
                target_path (format context / target)
                sub_path (format target_path / sub)]
@@ -96,7 +96,7 @@
 
          dummy @profile.random]
         (in (do async.monad
-              [#let [console (@version.echo "")]
+              [.let [console (@version.echo "")]
                verdict (do {! (try.with async.monad)}
                          [_ (..create_directory! fs target_path direct_files)
                           _ (..create_directory! fs sub_path sub_files)
-- 
cgit v1.2.3