diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/macro/ast.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/macro/ast.lux b/stdlib/source/lux/macro/ast.lux index 6647307dd..ff572c6bd 100644 --- a/stdlib/source/lux/macro/ast.lux +++ b/stdlib/source/lux/macro/ast.lux @@ -78,7 +78,7 @@ (^template [<tag>] [[_ (<tag> xs')] [_ (<tag> ys')]] (and (:: Eq<Nat> = (size xs') (size ys')) - (fold (lambda [[x' y'] old] + (fold (function [[x' y'] old] (and old (= x' y'))) true (zip2 xs' ys')))) @@ -87,7 +87,7 @@ [[_ (#;RecordS xs')] [_ (#;RecordS ys')]] (and (:: Eq<Nat> = (size xs') (size ys')) - (fold (lambda [[[xl' xr'] [yl' yr']] old] + (fold (function [[[xl' xr'] [yl' yr']] old] (and old (= xl' yl') (= xr' yr'))) true (zip2 xs' ys'))) @@ -121,7 +121,7 @@ [#;TupleS "[" "]"]) [_ (#;RecordS pairs)] - ($_ Text/append "{" (|> pairs (map (lambda [[left right]] ($_ Text/append (to-text left) " " (to-text right)))) (interpose " ") (text;join-with "")) "}") + ($_ Text/append "{" (|> pairs (map (function [[left right]] ($_ Text/append (to-text left) " " (to-text right)))) (interpose " ") (text;join-with "")) "}") )) (def: #export (replace original substitute ast) @@ -137,7 +137,7 @@ [#;TupleS]) [cursor (#;RecordS parts)] - [cursor (#;RecordS (map (lambda [[left right]] + [cursor (#;RecordS (map (function [[left right]] [(replace original substitute left) (replace original substitute right)]) parts))] |