From 94e5802f594a73245fce0fbd885103b8bf210d57 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 2 Dec 2022 19:33:00 -0400
Subject: Added some simple time-series handling machinery.

---
 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 873c4c08d..93126b8d8 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -80,7 +80,7 @@
                                (console.write_line report console)))
                     (is (Async (Try Any))
                         <else>)))]
-          (io.run! (at world/environment.default exit +1))))
+          (io.run! (of world/environment.default exit +1))))
 
       {try.#Success output}
       (in output))))
@@ -103,18 +103,18 @@
     {try.#Success content}
     (when content
       {.#Left content}
-      (at fs write package content)
+      (of fs write package content)
       
       {.#Right content}
       (do [! (try.with async.monad)]
-        [_ (at fs make_directory package)
+        [_ (of fs make_directory package)
          _ (monad.each ! (function (_ [name content])
-                           (at fs write (file.rooted fs package name) content))
+                           (of fs write (file.rooted fs package name) content))
                        content)]
         (in [])))
     
     {try.#Failure error}
-    (at async.monad in {try.#Failure error})))
+    (of 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))))
@@ -129,7 +129,7 @@
 
         {.#Item head tail}
         (do !
-          [content (at fs read head)]
+          [content (of fs read head)]
           (again tail
                  (dictionary.has head content output)))))))
 
@@ -224,6 +224,6 @@
         ...     (do [! async.monad]
         ...       [console (|> console.default
         ...                    async.future
-        ...                    (at ! each (|>> try.trusted console.async)))]
+        ...                    (of ! each (|>> try.trusted console.async)))]
         ...       (interpreter.run! (try.with async.monad) console platform interpretation translation_bundle)))
         ))))
-- 
cgit v1.2.3