diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/control/monad.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/control/monad.lux b/stdlib/source/lux/control/monad.lux index 0fce26db0..9b908df9a 100644 --- a/stdlib/source/lux/control/monad.lux +++ b/stdlib/source/lux/control/monad.lux @@ -59,10 +59,10 @@ (wrap (f3 z))))} (case tokens (#;Cons monad (#;Cons [_ (#;Tuple bindings)] (#;Cons body #;Nil))) - (let [g!map (: AST [_cursor (#;Symbol ["" " map "])]) - g!join (: AST [_cursor (#;Symbol ["" " join "])]) - g!apply (: AST [_cursor (#;Symbol ["" " apply "])]) - body' (fold (: (-> [AST AST] AST AST) + (let [g!map (: Code [_cursor (#;Symbol ["" " map "])]) + g!join (: Code [_cursor (#;Symbol ["" " join "])]) + g!apply (: Code [_cursor (#;Symbol ["" " apply "])]) + body' (fold (: (-> [Code Code] Code Code) (function [binding body'] (let [[var value] binding] (case var |