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/install.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/test/aedifex/command/install.lux')

diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index f68fcb732..ed0a3a7d3 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -44,7 +44,7 @@
   (let [/ (\ fs separator)
         ! ///action.monad]
     (|> sources
-        set.to_list
+        set.list
         (monad.map ! (function (_ head)
                        (do !
                          [_ (: (Async (Try Any))
@@ -55,7 +55,7 @@
 (def: (execute! program fs sample)
   (-> (Program Async) (file.System Async) ///.Profile (Async (Try Text)))
   (do ///action.monad
-    [#let [console ($version.echo "")]
+    [.let [console ($version.echo "")]
      _ (..make_sources! fs (get@ #///.sources sample))
      _ (/.do! console fs (///repository/local.repository program fs) sample)]
     (\ console read_line [])))
@@ -69,10 +69,10 @@
                    $profile.random)
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
-         #let [/ (\ file.default separator)]]
+         .let [/ (\ file.default separator)]]
         ($_ _.and
             (in (do {! async.monad}
-                  [#let [fs (file.mock /)
+                  [.let [fs (file.mock /)
                          program (program.async (program.mock environment.empty home working_directory))
 
                          artifact_path (///local.uri (get@ #///artifact.version identity) identity)
@@ -95,7 +95,7 @@
                   (_.cover' [/.do! /.success]
                             (try.else false verdict))))
             (in (do {! async.monad}
-                  [#let [fs (file.mock /)
+                  [.let [fs (file.mock /)
                          program (program.async (program.mock environment.empty home working_directory))]
                    logging (..execute! program fs (set@ #///.identity #.None sample))]
                   (_.cover' [/.failure]
-- 
cgit v1.2.3