diff options
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'))))) |