diff options
Diffstat (limited to 'lux-lua/source')
| -rw-r--r-- | lux-lua/source/program.lux | 28 |
1 files changed, 14 insertions, 14 deletions
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) |