diff options
| author | Eduardo Julian | 2017-09-19 22:33:54 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-09-19 22:33:54 -0400 |
| commit | 7eb6d767daa24d08d609bad83d82985ffb32c762 (patch) | |
| tree | d4e3aa54456cbd6d6b58a32789d87234c2d68cfa /stdlib/source/lux/concurrency | |
| parent | 10fba6ef74d8d454f8e8776aa31d2c5cd250909e (diff) | |
- Changed the terminology of monoids ("append" -> "compose", "unit" -> "identity").
Diffstat (limited to 'stdlib/source/lux/concurrency')
| -rw-r--r-- | stdlib/source/lux/concurrency/actor.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/lux/concurrency/frp.lux | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/concurrency/actor.lux b/stdlib/source/lux/concurrency/actor.lux index c742b8d75..ac4db6606 100644 --- a/stdlib/source/lux/concurrency/actor.lux +++ b/stdlib/source/lux/concurrency/actor.lux @@ -315,7 +315,7 @@ g!message (code;local-symbol (get@ #name signature)) g!actor-vars (L/map code;local-symbol actor-vars) g!actor (` ((~ (code;symbol actor-name)) (~@ g!actor-vars))) - g!all-vars (|> (get@ #vars signature) (L/map code;local-symbol) (L/append g!actor-vars)) + g!all-vars (|> (get@ #vars signature) (L/map code;local-symbol) (L/compose g!actor-vars)) g!inputsC (|> (get@ #inputs signature) (L/map (|>. product;left code;local-symbol))) g!inputsT (|> (get@ #inputs signature) (L/map product;right)) g!state (|> signature (get@ #state) code;local-symbol) diff --git a/stdlib/source/lux/concurrency/frp.lux b/stdlib/source/lux/concurrency/frp.lux index ed0560b84..d59b96563 100644 --- a/stdlib/source/lux/concurrency/frp.lux +++ b/stdlib/source/lux/concurrency/frp.lux @@ -234,7 +234,7 @@ (All [a] (-> Nat (Channel a) (Channel (List a)))) (let [(^open) &;Monad<Promise>] (folds (function [input window] - (let [window' (L/append window (list input))] + (let [window' (L/compose window (list input))] (wrap (if (n.<= max (list;size window')) window' (tail window'))))) |