De-sigil-ification: #

8 files changed, 45 insertions, 45 deletions

diff --git a/stdlib/source/test/lux/world/console.lux b/stdlib/source/test/lux/world/console.lux
index cb0978bda..068a67aa7 100644
--- a/stdlib/source/test/lux/world/console.lux
+++ b/stdlib/source/test/lux/world/console.lux
@@ -61,7 +61,7 @@
                (io.run!
                 (do io.monad
                   [?_ (/.write_line expected console)
-                   ?actual (# console read_line [])]
+                   ?actual (at console read_line [])]
                   (in (<| (try.else false)
                           (do try.monad
                             [_ ?_
diff --git a/stdlib/source/test/lux/world/file.lux b/stdlib/source/test/lux/world/file.lux
index 2e06d0af5..5617489b9 100644
--- a/stdlib/source/test/lux/world/file.lux
+++ b/stdlib/source/test/lux/world/file.lux
@@ -188,7 +188,7 @@
            {.#Some {.#Right children}}
            (|> children
                (monad.only ! (..file? disk))
-               (# ! each (|>> {try.#Success})))
+               (at ! each (|>> {try.#Success})))
 
            _
            (in {try.#Failure ""}))))
@@ -199,7 +199,7 @@
            {.#Some {.#Right children}}
            (|> children
                (monad.only ! (..directory? disk))
-               (# ! each (|>> {try.#Success})))
+               (at ! each (|>> {try.#Success})))
 
            _
            (in {try.#Failure ""}))))
@@ -252,7 +252,7 @@
 
              (in (do async.monad
                    [.let [fs (/.mock /)]
-                    ? (# fs delete file)]
+                    ? (at fs delete file)]
                    (_.coverage' [/.cannot_delete]
                      (case ?
                        {try.#Failure error}
@@ -262,7 +262,7 @@
                        false))))
              (in (do async.monad
                    [.let [fs (/.mock /)]
-                    ? (# fs read file)]
+                    ? (at fs read file)]
                    (_.coverage' [/.cannot_find_file]
                      (case ?
                        {try.#Failure error}
@@ -272,8 +272,8 @@
                        false))))
              (in (do async.monad
                    [.let [fs (/.mock /)]
-                    ?/0 (# fs directory_files file)
-                    ?/1 (# fs sub_directories file)]
+                    ?/0 (at fs directory_files file)
+                    ?/1 (at fs sub_directories file)]
                    (_.coverage' [/.cannot_find_directory]
                      (case [?/0 ?/1]
                        [{try.#Failure error/0} {try.#Failure error/1}]
diff --git a/stdlib/source/test/lux/world/file/watch.lux b/stdlib/source/test/lux/world/file/watch.lux
index 9ab9e68ec..b4d090cbb 100644
--- a/stdlib/source/test/lux/world/file/watch.lux
+++ b/stdlib/source/test/lux/world/file/watch.lux
@@ -33,7 +33,7 @@
        (random#in [/.deletion /.deletion?])
        ))
 
-(def: concern##test
+(def: concern::test
   Test
   (all _.and
        (_.coverage [/.creation /.creation?]
@@ -71,8 +71,8 @@
      .let [[fs watcher] (/.mock "/")]]
     (all _.and
          (in (do async.monad
-               [?concern (# watcher concern directory)
-                ?stop (# watcher stop directory)]
+               [?concern (at watcher concern directory)
+                ?stop (at watcher stop directory)]
                (_.coverage' [/.not_being_watched]
                  (and (case ?concern
                         {try.#Failure error}
@@ -91,18 +91,18 @@
 (def: (no_events_prior_to_creation! fs watcher directory)
   (-> (//.System Async) (/.Watcher Async) //.Path (Async (Try Bit)))
   (do [! (try.with async.monad)]
-    [_ (# fs make_directory directory)
-     _ (# watcher start /.all directory)]
-    (|> (# watcher poll [])
-        (# ! each list.empty?))))
+    [_ (at fs make_directory directory)
+     _ (at watcher start /.all directory)]
+    (|> (at watcher poll [])
+        (at ! each list.empty?))))
 
 (def: (after_creation! fs watcher expected_path)
   (-> (//.System Async) (/.Watcher Async) //.Path (Async (Try Bit)))
   (do (try.with async.monad)
     [_ (is (Async (Try Any))
            (//.make_file async.monad fs (binary.empty 0) expected_path))
-     poll/pre (# watcher poll [])
-     poll/post (# watcher poll [])]
+     poll/pre (at watcher poll [])
+     poll/post (at watcher poll [])]
     (in (and (case poll/pre
                (pattern (list [concern actual_path]))
                (and (text#= expected_path actual_path)
@@ -118,9 +118,9 @@
   (-> (//.System Async) (/.Watcher Async) Binary //.Path (Async (Try Bit)))
   (do (try.with async.monad)
     [_ (async.after 1 {try.#Success "Delay to make sure the over_write time-stamp always changes."})
-     _ (# fs write expected_path data)
-     poll/2 (# watcher poll [])
-     poll/2' (# watcher poll [])]
+     _ (at fs write expected_path data)
+     poll/2 (at watcher poll [])
+     poll/2' (at watcher poll [])]
     (in (and (case poll/2
                (pattern (list [concern actual_path]))
                (and (text#= expected_path actual_path)
@@ -135,9 +135,9 @@
 (def: (after_deletion! fs watcher expected_path)
   (-> (//.System Async) (/.Watcher Async) //.Path (Async (Try Bit)))
   (do (try.with async.monad)
-    [_ (# fs delete expected_path)
-     poll/3 (# watcher poll [])
-     poll/3' (# watcher poll [])]
+    [_ (at fs delete expected_path)
+     poll/3 (at watcher poll [])
+     poll/3' (at watcher poll [])]
     (in (and (case poll/3
                (pattern (list [concern actual_path]))
                (and (not (/.creation? concern))
@@ -154,15 +154,15 @@
       (_.for [/.Watcher])
       (all _.and
            (_.for [/.Concern]
-                  ..concern##test)
+                  ..concern::test)
            ..exception
 
            (do [! random.monad]
              [directory (random.alphabetic 5)
               .let [/ "/"
                     [fs watcher] (/.mock /)]
-              expected_path (# ! each (|>> (format directory /))
-                               (random.alphabetic 5))
+              expected_path (at ! each (|>> (format directory /))
+                                (random.alphabetic 5))
               data ($binary.random 10)]
              (in (do [! async.monad]
                    [verdict (do (try.with !)
@@ -188,7 +188,7 @@
               .let [/ "/"
                     [fs watcher] (/.mock /)]]
              (in (do async.monad
-                   [started? (# watcher start /.all directory)]
+                   [started? (at watcher start /.all directory)]
                    (_.coverage' [/.cannot_poll_a_non_existent_directory]
                      (case started?
                        {try.#Success _}
diff --git a/stdlib/source/test/lux/world/input/keyboard.lux b/stdlib/source/test/lux/world/input/keyboard.lux
index 3ffd0edf6..4e9db7301 100644
--- a/stdlib/source/test/lux/world/input/keyboard.lux
+++ b/stdlib/source/test/lux/world/input/keyboard.lux
@@ -140,7 +140,7 @@
     (Random /.Key)
     (let [count (list.size ..listing)]
       (do [! random.monad]
-        [choice (# ! each (n.% count) random.nat)]
+        [choice (at ! each (n.% count) random.nat)]
         (in (maybe.trusted (list.item choice ..listing))))))
 
   (def: .public test
diff --git a/stdlib/source/test/lux/world/net/http/client.lux b/stdlib/source/test/lux/world/net/http/client.lux
index cf5005977..380e3a257 100644
--- a/stdlib/source/test/lux/world/net/http/client.lux
+++ b/stdlib/source/test/lux/world/net/http/client.lux
@@ -41,12 +41,12 @@
           product.right
           (the //.#body)
           (function.on {.#None})
-          (# ! each (|>> (pipe.do try.monad
-                           []
-                           [product.right (# utf8.codec decoded)]
-                           [(# nat.decimal decoded)]
-                           [(nat.= expected) in])
-                         (try.else false))))
+          (at ! each (|>> (pipe.do try.monad
+                            []
+                            [product.right (at utf8.codec decoded)]
+                            [(at nat.decimal decoded)]
+                            [(nat.= expected) in])
+                          (try.else false))))
       
       {try.#Failure error}
       (in false))))
@@ -65,7 +65,7 @@
          on_connect random.nat
          on_options random.nat
          on_trace random.nat
-         num_headers (# ! each (nat.% 10) random.nat)
+         num_headers (at ! each (nat.% 10) random.nat)
          headers (random.dictionary text.hash num_headers (random.lower_case 3) (random.lower_case 3))
          .let [mock (is (/.Client IO)
                         (implementation
@@ -81,8 +81,8 @@
                                                 {//.#Options} on_options
                                                 {//.#Trace} on_trace)
                                         data (|> value
-                                                 (# nat.decimal encoded)
-                                                 (# utf8.codec encoded))]
+                                                 (at nat.decimal encoded)
+                                                 (at utf8.codec encoded))]
                                     {try.#Success [//status.ok
                                                    [//.#headers headers
                                                     //.#body (function (_ ?wanted_bytes)
diff --git a/stdlib/source/test/lux/world/output/video/resolution.lux b/stdlib/source/test/lux/world/output/video/resolution.lux
index 347162ff5..f9e679733 100644
--- a/stdlib/source/test/lux/world/output/video/resolution.lux
+++ b/stdlib/source/test/lux/world/output/video/resolution.lux
@@ -47,7 +47,7 @@
     (Random /.Resolution)
     (let [count (list.size ..listing)]
       (do [! random.monad]
-        [choice (# ! each (n.% count) random.nat)]
+        [choice (at ! each (n.% count) random.nat)]
         (in (maybe.trusted (list.item choice ..listing))))))
 
   (def: .public test
diff --git a/stdlib/source/test/lux/world/program.lux b/stdlib/source/test/lux/world/program.lux
index 390a77515..3067422e0 100644
--- a/stdlib/source/test/lux/world/program.lux
+++ b/stdlib/source/test/lux/world/program.lux
@@ -42,7 +42,7 @@
   Test
   (<| (_.covering /._)
       (do [! random.monad]
-        [env_size (# ! each (|>> (n.% 10) ++) random.nat)
+        [env_size (at ! each (|>> (n.% 10) ++) random.nat)
          environment (..environment env_size)
          home ..path
          directory ..path
@@ -68,7 +68,7 @@
              (_.coverage [/.unknown_environment_variable]
                (let [program (/.mock environment home directory)]
                  (|> unknown
-                     (# program variable)
+                     (at program variable)
                      io.run!
                      (pipe.case {try.#Success _}
                        false
diff --git a/stdlib/source/test/lux/world/shell.lux b/stdlib/source/test/lux/world/shell.lux
index c30aef45d..3ad40e908 100644
--- a/stdlib/source/test/lux/world/shell.lux
+++ b/stdlib/source/test/lux/world/shell.lux
@@ -98,11 +98,11 @@
               .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)])
-                               read (# process read [])
-                               failure (# process fail [])
+                              [process (at shell execute [environment.empty "~" command (list)])
+                               read (at process read [])
+                               failure (at process fail [])
                                wrote! (do !
-                                        [write (# process write input)]
+                                        [write (at process write input)]
                                         (in {try.#Success (case write
                                                             {try.#Success _}
                                                             false
@@ -110,14 +110,14 @@
                                                             {try.#Failure write}
                                                             (text#= input write))}))
                                destroyed! (do !
-                                            [destroy (# process destroy [])]
+                                            [destroy (at process destroy [])]
                                             (in {try.#Success (case destroy
                                                                 {try.#Success _}
                                                                 false
                                                                 
                                                                 {try.#Failure destroy}
                                                                 (text#= destruction destroy))}))
-                               await (# process await [])]
+                               await (at process await [])]
                               (in (and (text#= command read)
                                        (text#= oops failure)
                                        wrote!