diff options
| author | Eduardo Julian | 2017-11-27 02:09:04 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-11-27 02:09:04 -0400 |
| commit | d6a7a133c5c4a734ab45e9497c8e5df749ce383a (patch) | |
| tree | 040b4df12dd3482fc0bb76f8e0a37126ef34fb34 /stdlib/source/lux/control/comonad.lux | |
| parent | 6031fc715b4a16b008d6f288c38739d9bb066490 (diff) | |
- Changed the prefixes of numeric functions.
Diffstat (limited to 'stdlib/source/lux/control/comonad.lux')
| -rw-r--r-- | stdlib/source/lux/control/comonad.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/control/comonad.lux b/stdlib/source/lux/control/comonad.lux index 15625b8f1..dd395ff64 100644 --- a/stdlib/source/lux/control/comonad.lux +++ b/stdlib/source/lux/control/comonad.lux @@ -27,13 +27,13 @@ (macro: #export (be tokens state) {#;doc (doc "A co-monadic parallel to the \"do\" macro." - (let [square (function [n] (i.* n n))] + (let [square (function [n] (i/* n n))] (be CoMonad<Stream> - [inputs (iterate i.inc 2)] + [inputs (iterate i/inc 2)] (square (head inputs)))))} (case tokens (#;Cons comonad (#;Cons [_ (#;Tuple bindings)] (#;Cons body #;Nil))) - (if (|> bindings list;size (n.% +2) (n.= +0)) + (if (|> bindings list;size (n/% +2) (n/= +0)) (let [g!map (: Code [_cursor (#;Symbol ["" " map "])]) g!split (: Code [_cursor (#;Symbol ["" " split "])]) body' (list/fold (: (-> [Code Code] Code Code) |