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

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

diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index 1a1ff7f60..be7c8b55e 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -109,7 +109,7 @@
   (Random Dependency)
   (do random.monad
     [lux_version (random.ascii/alpha 5)
-     #let [js_compiler {#///dependency.artifact {#///artifact.group /.lux_group
+     .let [js_compiler {#///dependency.artifact {#///artifact.group /.lux_group
                                                  #///artifact.name /.js_compiler_name
                                                  #///artifact.version lux_version}
                         #///dependency.type ///artifact/type.js_library}]]
@@ -142,13 +142,13 @@
       (do {! random.monad}
         [last_read (random.ascii/alpha 5)
          last_error (random.ascii/alpha 5)
-         #let [fs (file.mock (\ file.default separator))
+         .let [fs (file.mock (\ file.default separator))
                shell (shell.async (..good_shell []))]
          program (random.ascii/alpha 5)
          target (random.ascii/alpha 5)
          home (random.ascii/alpha 5)
          working_directory (random.ascii/alpha 5)
-         #let [empty_profile (: Profile
+         .let [empty_profile (: Profile
                                 (\ ///.monoid identity))
                with_target (: (-> Profile Profile)
                               (set@ #///.target target))
@@ -179,7 +179,7 @@
                               (#try.Failure error)
                               (exception.match? /.no_available_compiler error)))))
             (do !
-              [#let [console (@version.echo "")]
+              [.let [console (@version.echo "")]
                [compiler resolution] ..resolution]
               (in (do async.monad
                     [verdict (do ///action.monad
@@ -201,7 +201,7 @@
                                /.success]
                               (try.else false verdict)))))
             (do !
-              [#let [console (@version.echo "")]
+              [.let [console (@version.echo "")]
                [compiler resolution] ..resolution]
               (in (do async.monad
                     [verdict (do ///action.monad
-- 
cgit v1.2.3