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-lua/source/program.lux | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'lux-lua')

diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux
index 0bb73d348..3ce591a2e 100644
--- a/lux-lua/source/program.lux
+++ b/lux-lua/source/program.lux
@@ -11,7 +11,7 @@
      ["." io (#+ IO io)]
      ["." function]
      [concurrency
-      ["." promise (#+ Promise)]]]
+      ["." async (#+ Async)]]]
     [data
      ["." maybe]
      ["." text ("#\." hash)
@@ -230,8 +230,8 @@
                       (net/sandius/rembulan/Table::get_key runtime.variant_flag_field host_object)
                       (net/sandius/rembulan/Table::get_key runtime.variant_value_field host_object)]
                  (^multi [(#.Some tag) ?flag (#.Some value)]
-                         [(read value)
-                          (#.Some value)])
+                         {(read value)
+                          (#.Some value)})
                  (#try.Success [(java/lang/Long::intValue (:as java/lang/Long tag))
                                 (: Any (case ?flag (#.Some _) "" #.None (ffi.null)))
                                 value])
@@ -552,7 +552,7 @@
 
                                              (#.Some value)
                                              (read value)))))
-                               _ (try.assume (run! ..rembulan_prelude))]
+                               _ (try.assumed (run! ..rembulan_prelude))]
                            [[state_context executor]
                             (: (Host _.Expression _.Statement)
                                (implementation
@@ -572,7 +572,7 @@
                                       (wrap [global value definition]))))
 
                                 (def: (ingest context content)
-                                  (|> content (\ utf8.codec decode) try.assume (:as _.Statement)))
+                                  (|> content (\ utf8.codec decode) try.assumed (:as _.Statement)))
 
                                 (def: (re_learn context custom content)
                                   (run! content))
@@ -610,7 +610,7 @@
                                      (wrap [global value definition]))))
 
                                (def: (ingest context content)
-                                 (|> content (\ utf8.codec decode) try.assume (:as _.Statement)))
+                                 (|> content (\ utf8.codec decode) try.assumed (:as _.Statement)))
 
                                (def: (re_learn context custom content)
                                  (run! content))
@@ -657,7 +657,7 @@
                              {input/0 java/lang/Object})
                   void
                   (<| (..return %)
-                      try.assume
+                      try.assumed
                       (do try.monad
                         [input/0 (..read input/0)]
                         (case partial_application
@@ -683,7 +683,7 @@
                              {input/1 java/lang/Object})
                   void
                   (<| (..return %)
-                      try.assume
+                      try.assumed
                       (do try.monad
                         [input/0 (..read input/0)
                          input/1 (..read input/1)]
@@ -708,7 +708,7 @@
                              {input/2 java/lang/Object})
                   void
                   (<| (..return %)
-                      try.assume
+                      try.assumed
                       (do try.monad
                         [input/0 (..read input/0)
                          input/1 (..read input/1)
@@ -735,10 +735,10 @@
                    (:as Operation)
                    (function (@self state))
                    (:as Try)
-                   try.assume
+                   try.assumed
                    (:as Try)
                    (do try.monad
-                     [handler (try.from_maybe (..ensure_function handler))
+                     [handler (try.of_maybe (..ensure_function handler))
                       output (net/sandius/rembulan/exec/DirectCallExecutor::call state_context
                                                                                  (:as java/lang/Object handler)
                                                                                  (|> (array.new 5)
@@ -797,8 +797,8 @@
                             program))))
 
 (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 [extension ".lua"]
@@ -806,7 +806,7 @@
           [(~~ (for {@.old [baggage platform]
                      @.lua platform}))
            ..platform]
-          (exec (do promise.monad
+          (exec (do async.monad
                   [_ (/.compiler {#/static.host @.lua
                                   #/static.host_module_extension extension
                                   #/static.target (/cli.target service)
-- 
cgit v1.2.3