diff options
| author | Eduardo Julian | 2017-11-27 02:34:07 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-11-27 02:34:07 -0400 |
| commit | 8003796cce911fa7c4958a83a2c55e6cbe16c8aa (patch) | |
| tree | d959350213f80c48e98934064a240617486e3200 /stdlib/source/lux/concurrency/actor.lux | |
| parent | d6a7a133c5c4a734ab45e9497c8e5df749ce383a (diff) | |
- Got rid of even more dots.
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 18bdaa61d..abda284c0 100644 --- a/stdlib/source/lux/concurrency/actor.lux +++ b/stdlib/source/lux/concurrency/actor.lux @@ -146,7 +146,7 @@ (do-template [<with> <resolve> <tag> <desc>] [(def: #hidden (<with> name) (-> Ident cs;Annotations cs;Annotations) - (|>. (#;Cons [(ident-for <tag>) + (|>> (#;Cons [(ident-for <tag>) (code;tag name)]))) (def: #hidden (<resolve> name) @@ -172,7 +172,7 @@ (do-template [<name> <desc>] [(def: #hidden <name> (-> Text Text) - (|>. (format <desc> "@")))] + (|>> (format <desc> "@")))] [state-name "State"] [behavior-name "Behavior"] @@ -315,7 +315,7 @@ g!actor-vars (list/map code;local-symbol actor-vars) g!actor (` ((~ (code;symbol actor-name)) (~@ g!actor-vars))) g!all-vars (|> (get@ #vars signature) (list/map code;local-symbol) (list/compose g!actor-vars)) - g!inputsC (|> (get@ #inputs signature) (list/map (|>. product;left code;local-symbol))) + g!inputsC (|> (get@ #inputs signature) (list/map (|>> product;left code;local-symbol))) g!inputsT (|> (get@ #inputs signature) (list/map product;right)) g!state (|> signature (get@ #state) code;local-symbol) g!self (|> signature (get@ #self) code;local-symbol) @@ -323,11 +323,11 @@ (if (list;empty? actor-vars) (list) (|> actor-vars list;size n/dec - (list;n/range +0) (list/map (|>. code;nat (~) ($) (`)))))) + (list;n/range +0) (list/map (|>> code;nat (~) ($) (`)))))) ref-replacements (|> (if (list;empty? actor-vars) (list) (|> actor-vars list;size n/dec - (list;n/range +0) (list/map (|>. code;nat (~) ($) (`))))) + (list;n/range +0) (list/map (|>> code;nat (~) ($) (`))))) (: (List Code)) (list;zip2 g!all-vars) (: (List [Code Code]))) |