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

(limited to 'stdlib/source/test/aedifex/dependency/deployment.lux')

diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index 9c575ff53..8c1e2e61a 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -135,7 +135,7 @@
   (Random [Dependency Artifact Package])
   (do random.monad
     [[profile package] $///package.random
-     #let [artifact (|> profile
+     .let [artifact (|> profile
                         (get@ #profile.identity)
                         maybe.assume)
            dependency (: Dependency
@@ -152,7 +152,7 @@
         ($_ _.and
             (do {! random.monad}
               [[dependency expected_artifact package] ..bundle
-               #let [cache (: Cache
+               .let [cache (: Cache
                               (atom.atom (dictionary.empty text.hash)))
                      http (..http cache)
                      repository (repository.async (remote.repository http #.None address))]]
@@ -164,14 +164,14 @@
                                   (try\map (verify_one 1 address package cache expected_artifact))
                                   (try.else false))))))
             (do {! random.monad}
-              [#let [hash (: (Hash [Dependency Artifact Package])
+              [.let [hash (: (Hash [Dependency Artifact Package])
                              (\ hash.functor map (|>> product.right product.left product.left)
                                 text.hash))]
                num_bundles (\ ! map (n.% 10) random.nat)
                bundles (|> ..bundle
                            (random.set hash num_bundles)
-                           (\ ! map set.to_list))
-               #let [resolution (list\fold (function (_ [dependency expected_artifact package] resolution)
+                           (\ ! map set.list))
+               .let [resolution (list\fold (function (_ [dependency expected_artifact package] resolution)
                                              (dictionary.put dependency package resolution))
                                            resolution.empty
                                            bundles)
-- 
cgit v1.2.3