diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/library/lux/macro/code.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/library/lux/macro/code.lux b/stdlib/source/library/lux/macro/code.lux index 5de323722..b27e28c8c 100644 --- a/stdlib/source/library/lux/macro/code.lux +++ b/stdlib/source/library/lux/macro/code.lux @@ -108,17 +108,17 @@ (text.format value) [_ (#.Tag name)] - (text\compose "#" (\ name.codec encoded name)) + (text\composite "#" (\ name.codec encoded name)) (^template [<tag> <open> <close>] [[_ (<tag> members)] - ($_ text\compose + ($_ text\composite <open> (list\mix (function (_ next prev) (let [next (format next)] (if (text\= "" prev) next - ($_ text\compose prev " " next)))) + ($_ text\composite prev " " next)))) "" members) <close>)]) @@ -126,13 +126,13 @@ [#.Tuple "[" "]"]) [_ (#.Record pairs)] - ($_ text\compose + ($_ text\composite "{" (list\mix (function (_ [left right] prev) - (let [next ($_ text\compose (format left) " " (format right))] + (let [next ($_ text\composite (format left) " " (format right))] (if (text\= "" prev) next - ($_ text\compose prev " " next)))) + ($_ text\composite prev " " next)))) "" pairs) "}") @@ -145,15 +145,15 @@ (case ast (^template [<tag>] [[location (<tag> parts)] - [location (<tag> (list\map (replaced original substitute) parts))]]) + [location (<tag> (list\each (replaced original substitute) parts))]]) ([#.Form] [#.Tuple]) [location (#.Record parts)] - [location (#.Record (list\map (function (_ [left right]) - [(replaced original substitute left) - (replaced original substitute right)]) - parts))] + [location (#.Record (list\each (function (_ [left right]) + [(replaced original substitute left) + (replaced original substitute right)]) + parts))] _ ast))) |