Made the be/de macros for (co)monadic expression extensible.

5 files changed, 10 insertions, 10 deletions

diff --git a/stdlib/source/test/lux/world/console.lux b/stdlib/source/test/lux/world/console.lux
index 003c20c34..c51cce645 100644
--- a/stdlib/source/test/lux/world/console.lux
+++ b/stdlib/source/test/lux/world/console.lux
@@ -56,7 +56,7 @@
                  ($/.spec (io.io (/.async (/.mock ..mock [false ""])))))
           (do random.monad
             [expected (random.ascii/alpha 10)
-             #let [console (/.mock ..mock [false ""])]]
+             .let [console (/.mock ..mock [false ""])]]
             (_.cover [/.write_line]
                      (io.run
                       (do io.monad
diff --git a/stdlib/source/test/lux/world/file/watch.lux b/stdlib/source/test/lux/world/file/watch.lux
index 88af80fdf..c5b89533b 100644
--- a/stdlib/source/test/lux/world/file/watch.lux
+++ b/stdlib/source/test/lux/world/file/watch.lux
@@ -53,7 +53,7 @@
             [left ..concern
              right (random.only (|>> (is? left) not)
                                 ..concern)
-             #let [[left left?] left
+             .let [[left left?] left
                    [right right?] right]]
             (_.cover [/.also]
                      (let [composition (/.also left right)]
@@ -69,7 +69,7 @@
   Test
   (do {! random.monad}
     [directory (random.ascii/alpha 5)
-     #let [[fs watcher] (/.mock "/")]]
+     .let [[fs watcher] (/.mock "/")]]
     ($_ _.and
         (in (do async.monad
               [?concern (\ watcher concern directory)
@@ -159,7 +159,7 @@
 
           (do {! random.monad}
             [directory (random.ascii/alpha 5)
-             #let [/ "/"
+             .let [/ "/"
                    [fs watcher] (/.mock /)]
              expected_path (\ ! map (|>> (format directory /))
                               (random.ascii/alpha 5))
@@ -185,7 +185,7 @@
                             (try.else false verdict)))))
           (do random.monad
             [directory (random.ascii/alpha 5)
-             #let [/ "/"
+             .let [/ "/"
                    [fs watcher] (/.mock /)]]
             (in (do async.monad
                   [started? ( \ watcher start /.all directory)]
diff --git a/stdlib/source/test/lux/world/input/keyboard.lux b/stdlib/source/test/lux/world/input/keyboard.lux
index e0064f29b..bfcc0db6c 100644
--- a/stdlib/source/test/lux/world/input/keyboard.lux
+++ b/stdlib/source/test/lux/world/input/keyboard.lux
@@ -157,7 +157,7 @@
                                (~~ (template [<pressed?> <function>]
                                      [(do random.monad
                                         [key ..random
-                                         #let [sample (<function> key)]]
+                                         .let [sample (<function> key)]]
                                         (_.cover [<function>]
                                                  (and (bit\= <pressed?> (get@ #/.pressed? sample))
                                                       (n.= key (get@ #/.input sample)))))]
diff --git a/stdlib/source/test/lux/world/net/http/client.lux b/stdlib/source/test/lux/world/net/http/client.lux
index 8a74d3e21..bdfad7989 100644
--- a/stdlib/source/test/lux/world/net/http/client.lux
+++ b/stdlib/source/test/lux/world/net/http/client.lux
@@ -43,7 +43,7 @@
          on_trace random.nat
          num_headers (\ ! map (nat.% 10) random.nat)
          headers (random.dictionary text.hash num_headers (random.ascii/lower 3) (random.ascii/lower 3))
-         #let [mock (: (/.Client IO)
+         .let [mock (: (/.Client IO)
                        (implementation
                         (def: (request method url headers data)
                           (io.io (let [value (case method
diff --git a/stdlib/source/test/lux/world/shell.lux b/stdlib/source/test/lux/world/shell.lux
index ecea6d8b9..0d67c79a0 100644
--- a/stdlib/source/test/lux/world/shell.lux
+++ b/stdlib/source/test/lux/world/shell.lux
@@ -38,8 +38,8 @@
      (if dead?
        (exception.except ..dead [])
        (do try.monad
-         [to_echo (try.of_maybe (list.head arguments))]
-         (in [dead? to_echo]))))
+         [echo (try.of_maybe (list.head arguments))]
+         (in [dead? echo]))))
    
    (def: (on_error dead?)
      (if dead?
@@ -95,7 +95,7 @@
              input (random.ascii/alpha 5)
              destruction (random.ascii/alpha 5)
              exit random.int
-             #let [shell (/.async (..io_shell command oops input destruction exit))]]
+             .let [shell (/.async (..io_shell command oops input destruction exit))]]
             (in (do {! async.monad}
                   [verdict (do (try.with !)
                              [process (\ shell execute [environment.empty "~" command (list)])