From 061fd8a209bbcaffc2bfb850ac6046752a567d50 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 27 Jul 2021 03:51:10 -0400
Subject: Re-named wrap => in && unwrap => out.

---
 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 8d9874216..c804d86b0 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -70,7 +70,7 @@
         (io.run (\ world/program.default exit +1)))
 
       (#try.Success output)
-      (wrap output))))
+      (in output))))
 
 (def: (timed process)
   (All [a]
@@ -82,7 +82,7 @@
                                (instant.span start)
                                %.duration
                                (format "Duration: ")))]]
-    (wrap output)))
+    (in output)))
 
 (def: (package! fs host_dependencies [packager package] static archive context)
   (-> (file.System Async) (Dictionary file.Path Binary) [Packager file.Path] Static Archive Context (Async (Try Any)))
@@ -91,7 +91,7 @@
     (\ fs write content package)
     
     (#try.Failure error)
-    (\ async.monad wrap (#try.Failure error))))
+    (\ 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))))
@@ -102,7 +102,7 @@
                      (dictionary.new text.hash))]
       (case pending
         #.Nil
-        (wrap output)
+        (in output)
 
         (#.Cons head tail)
         (do !
@@ -152,7 +152,7 @@
                                          (Async (Try [Archive (directive.State+ <parameters>)]))
                                          (:assume (platform.compile import static expander platform compilation [archive state])))
                _ (ioW.freeze (get@ #platform.&file_system platform) static archive)
-               program_context (async\wrap ($/program.context archive))
+               program_context (async\in ($/program.context archive))
                host_dependencies (..load_host_dependencies (get@ #platform.&file_system platform) compilation_host_dependencies)
                _ (..package! (for {@.old (file.async file.default)
                                    @.jvm (file.async file.default)
@@ -162,14 +162,14 @@
                              static
                              archive
                              program_context)]
-              (wrap (debug.log! "Compilation complete!"))))
+              (in (debug.log! "Compilation complete!"))))
 
         (#/cli.Export export)
         (<| (or_crash! "Export failed:")
             (do (try.with async.monad)
               [_ (/export.export (get@ #platform.&file_system platform)
                                  export)]
-              (wrap (debug.log! "Export complete!"))))
+              (in (debug.log! "Export complete!"))))
         
         (#/cli.Interpretation interpretation)
         ## TODO: Fix the interpreter...
-- 
cgit v1.2.3