diff options
author | Eduardo Julian | 2017-08-21 23:36:59 -0400 |
---|---|---|
committer | Eduardo Julian | 2017-08-21 23:36:59 -0400 |
commit | 19395f5184abf1f8a61fe31d436e0d743854f79e (patch) | |
tree | 8ac5facce692bb7b24c2fa65562f1493c6d4dc40 /stdlib/source/lux/concurrency/actor.lux | |
parent | 60cf511d714adb311176be6ad375ff57a373dc7a (diff) |
- Renamed "model" to "opaque".
Diffstat (limited to 'stdlib/source/lux/concurrency/actor.lux')
-rw-r--r-- | stdlib/source/lux/concurrency/actor.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/concurrency/actor.lux b/stdlib/source/lux/concurrency/actor.lux index 04a0db61e..c742b8d75 100644 --- a/stdlib/source/lux/concurrency/actor.lux +++ b/stdlib/source/lux/concurrency/actor.lux @@ -14,7 +14,7 @@ (common ["csr" reader] ["csw" writer]))) [type] - (type model)) + (type opaque)) (.. ["A" atom] ["P" promise "P/" Monad<Promise>] ["T" task] @@ -29,7 +29,7 @@ (with-expansions [<Message> (as-is (-> s (Actor s) (T;Task s))) <Obituary> (as-is [Text s (List <Message>)])] - (model: #export (Actor s) + (opaque: #export (Actor s) {#;doc "An actor, defined as all the necessities it requires."} {#mailbox (stm;Var <Message>) #kill-switch (P;Promise Unit) @@ -51,9 +51,9 @@ (All [s] (-> (Behavior s) s (IO (Actor s)))) (io (let [[handle end] behavior self (: (Actor ($ +0)) - (@model {#mailbox (stm;var (:! (Message ($ +0)) [])) - #kill-switch (P;promise Unit) - #obituary (P;promise (Obituary ($ +0)))})) + (@opaque {#mailbox (stm;var (:! (Message ($ +0)) [])) + #kill-switch (P;promise Unit) + #obituary (P;promise (Obituary ($ +0)))})) mailbox-channel (io;run (stm;follow (get@ #mailbox (@repr self)))) |mailbox| (stm;var mailbox-channel) _ (P/map (function [_] |