diff options
Diffstat (limited to 'stdlib/source/lux/control/effect.lux')
| -rw-r--r-- | stdlib/source/lux/control/effect.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/control/effect.lux b/stdlib/source/lux/control/effect.lux index d0e2e0576..1f0046fce 100644 --- a/stdlib/source/lux/control/effect.lux +++ b/stdlib/source/lux/control/effect.lux @@ -55,7 +55,7 @@ [(#M;Effect ff) _] (#M;Effect (:: dsl map - (lambda [f] (apply f ea)) + (function [f] (apply f ea)) ff)) ))) @@ -159,7 +159,7 @@ "'fieldA' will be a value provided by a handler.")} (do @ [g!output (compiler;gensym "g!output") - #let [op-types (List/map (lambda [op] + #let [op-types (List/map (function [op] (let [g!tag (ast;tag ["" (get@ #name op)]) g!inputs (` [(~@ (get@ #inputs op))]) g!output (` (-> (~ (get@ #output op)) (~ g!output)))] @@ -179,7 +179,7 @@ ((~' <tag>) (~' params) (. (~' f) (~' cont)))) ((~@ op-tags)))) )) - function-defs (List/map (lambda [op] + function-defs (List/map (function [op] (let [g!name (ast;symbol ["" (get@ #name op)]) g!tag (ast;tag ["" (get@ #name op)]) g!params (: (List AST) @@ -233,7 +233,7 @@ g!value (compiler;gensym "value") g!wrap (compiler;gensym "wrap") #let [g!cases (|> defs - (List/map (lambda [def] + (List/map (function [def] (let [g!tag (ast;tag [e-module (get@ #common;def-name def)]) g!args (List/map (|>. [""] ast;symbol) (get@ #common;def-args def)) @@ -380,7 +380,7 @@ [(type;apply-type stackT1 recT0) (#;Some unfoldT1)] [(flatten-effect-stack unfoldT1) stack] [(|> stack list;enumerate - (list;find (lambda [[idx effect]] + (list;find (function [[idx effect]] (same-effect? effect eff0)))) (#;Some [idx _])]) (wrap (list (` (#M;Effect (:: (~ g!functor) (~' map) (~' wrap) |