From f9e33ae96aec4741385a576719786092c9e68043 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 4 Jun 2022 19:34:42 -0400
Subject: De-sigil-ification: #

---
 stdlib/source/program/compositor.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/program/compositor.lux')

diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 543900782..986e1f161 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -78,7 +78,7 @@
                                (console.write_line report console)))
                     (is (Async (Try Any))
                         <else>)))]
-          (io.run! (# world/program.default exit +1))))
+          (io.run! (at world/program.default exit +1))))
 
       {try.#Success output}
       (in output))))
@@ -101,18 +101,18 @@
     {try.#Success content}
     (case content
       {.#Left content}
-      (# fs write package content)
+      (at fs write package content)
       
       {.#Right content}
       (do [! (try.with async.monad)]
-        [_ (# fs make_directory package)
+        [_ (at fs make_directory package)
          _ (monad.each ! (function (_ [name content])
-                           (# fs write (file.rooted fs package name) content))
+                           (at fs write (file.rooted fs package name) content))
                        content)]
         (in [])))
     
     {try.#Failure error}
-    (# async.monad in {try.#Failure error})))
+    (at async.monad in {try.#Failure error})))
 
 (def: (load_host_dependencies fs host_dependencies)
   (-> (file.System Async) (List file.Path) (Async (Try (Dictionary file.Path Binary))))
@@ -127,7 +127,7 @@
 
         {.#Item head tail}
         (do !
-          [content (# fs read head)]
+          [content (at fs read head)]
           (again tail
                  (dictionary.has head content output)))))))
 
@@ -201,6 +201,6 @@
         ...     (do [! async.monad]
         ...       [console (|> console.default
         ...                    async.future
-        ...                    (# ! each (|>> try.trusted console.async)))]
+        ...                    (at ! each (|>> try.trusted console.async)))]
         ...       (interpreter.run! (try.with async.monad) console platform interpretation generation_bundle)))
         ))))
-- 
cgit v1.2.3