diff options
| author | Eduardo Julian | 2020-11-28 21:40:29 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-11-28 21:40:29 -0400 |
| commit | 7444deb1b80d469280fcb0684d91c13f752a86d6 (patch) | |
| tree | 132f8aa480dad400c20971f5e085876da8772b75 /stdlib/source/lux/abstract | |
| parent | a02b7bf8ff358ccfa35b03272d28537aeac723ae (diff) | |
Re-named "_.claim" to "_.cover'".
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/abstract/comonad.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/lux/abstract/monad/indexed.lux | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/abstract/comonad.lux b/stdlib/source/lux/abstract/comonad.lux index 94b3d06c8..0a2b6f65c 100644 --- a/stdlib/source/lux/abstract/comonad.lux +++ b/stdlib/source/lux/abstract/comonad.lux @@ -4,7 +4,7 @@ [number ["n" nat]] [collection - ["." list ("#@." fold)]]] + ["." list ("#\." fold)]]] [meta ["." location]]] [// @@ -46,7 +46,7 @@ g!_ (gensym "_") g!map (gensym "map") g!split (gensym "split") - body' (list@fold (: (-> [Code Code] Code Code) + body' (list\fold (: (-> [Code Code] Code Code) (function (_ binding body') (let [[var value] binding] (case var diff --git a/stdlib/source/lux/abstract/monad/indexed.lux b/stdlib/source/lux/abstract/monad/indexed.lux index 2f42c0176..14bbf75f0 100644 --- a/stdlib/source/lux/abstract/monad/indexed.lux +++ b/stdlib/source/lux/abstract/monad/indexed.lux @@ -6,7 +6,7 @@ ["s" code (#+ Parser)]]] [data [collection - ["." list ("#@." functor fold)]]] + ["." list ("#\." functor fold)]]] ["." meta] [macro [syntax (#+ syntax:)] @@ -55,11 +55,11 @@ {context (s.tuple (p.some context))} expression) (meta.with-gensyms [g!_ g!bind] - (let [body (list@fold (function (_ context next) + (let [body (list\fold (function (_ context next) (case context (#Let bindings) (` (let [(~+ (|> bindings - (list@map pair-list) + (list\map pair-list) list.concat))] (~ next))) |