diff options
| author | Eduardo Julian | 2017-12-04 19:46:36 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-12-04 19:46:36 -0400 |
| commit | 077e8286b1168909d702ae0c28a0d2941c956f15 (patch) | |
| tree | 29b18553df8fac35ecb377813b66b67a8bdebddd /stdlib/source/lux/concurrency/actor.lux | |
| parent | 0b946aa762f777682c53c6171b4797f8869204bb (diff) | |
- No longer deleting type-vars in luxc, to better match it with the type-checking in new-luxc.
- Fixed some minor bugs and inconsistencies.
Diffstat (limited to 'stdlib/source/lux/concurrency/actor.lux')
| -rw-r--r-- | stdlib/source/lux/concurrency/actor.lux | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/stdlib/source/lux/concurrency/actor.lux b/stdlib/source/lux/concurrency/actor.lux index b326d0028..f91b3c57f 100644 --- a/stdlib/source/lux/concurrency/actor.lux +++ b/stdlib/source/lux/concurrency/actor.lux @@ -50,12 +50,9 @@ {#.doc "Given a behavior and initial state, spawns an actor and returns it."} (All [s] (-> (Behavior s) s (IO (Actor s)))) (io (let [[handle end] behavior - self (: (Actor ($ +0)) - (@abstract {#mailbox (stm.var (:! (Message ($ +0)) [])) - #kill-switch (: (P.Promise Unit) - (P.promise #.None)) - #obituary (: (P.Promise (Obituary ($ +0))) - (P.promise #.None))})) + self (@abstract {#mailbox (stm.var (:! Message [])) + #kill-switch (P.promise #.None) + #obituary (P.promise #.None)}) mailbox-channel (io.run (stm.follow (get@ #mailbox (@repr self)))) |mailbox| (stm.var mailbox-channel) _ (P/map (function [_] |