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.

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

(limited to 'lux-jvm/source/program.lux')

diff --git a/lux-jvm/source/program.lux b/lux-jvm/source/program.lux
index fa0e19109..60fb953aa 100644
--- a/lux-jvm/source/program.lux
+++ b/lux-jvm/source/program.lux
@@ -10,7 +10,7 @@
      ["." io (#+ IO)]
      ["." try (#+ Try)]
      [concurrency
-      ["." promise (#+ Promise)]]]
+      ["." async (#+ Async)]]]
     [data
      ["." product]
      [text
@@ -213,7 +213,7 @@
     [instanceG (function.function' (#.Some [0 (.nat -1)]) expression.translate archive [(list) 4 ..how_to_wrap_a_phase])
      phase_wrapper (generation.evaluate! [0 (.nat -2)] instanceG)]
     (wrap (function (_ phase)
-            (<| try.assume
+            (<| try.assumed
                 (: (Try java/lang/Object))
                 (do try.monad
                   [apply_method (|> phase_wrapper
@@ -255,7 +255,7 @@
       (:as Operation)
       (function (@self state))
       (:as Try)
-      try.assume
+      try.assumed
       (:as Try)
       (do try.monad
         [method (|> handler
@@ -273,16 +273,16 @@
          method))))
 
 (def: (declare_success! _)
-  (-> Any (Promise Any))
-  (promise.future (\ world/program.default exit +0)))
+  (-> Any (Async Any))
+  (async.future (\ world/program.default exit +0)))
 
 (program: [{service /cli.service}]
   (let [static {#/static.host @.jvm
                 #/static.host_module_extension ".jvm"
                 #/static.target (/cli.target service)
                 #/static.artifact_extension ".class"}]
-    (exec (do promise.monad
-            [[loader platform] (promise.future ..platform)
+    (exec (do async.monad
+            [[loader platform] (async.future ..platform)
              _ (/.compiler {#/static.host @.jvm
                             #/static.host_module_extension ".jvm"
                             #/static.target (/cli.target service)
-- 
cgit v1.2.3