diff options
| -rw-r--r-- | stdlib/source/lux.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux index 9a90885b9..5514d1939 100644 --- a/stdlib/source/lux.lux +++ b/stdlib/source/lux.lux @@ -5481,15 +5481,15 @@ (#Some tokens) (#Some (list target))) - (^template [<tag> <ctor>] - [_ (<tag> elems)] + (^template [<tag>] + [cursor (<tag> elems)] (do maybe-monad [placements (monad/map maybe-monad (place-tokens label tokens) elems)] - (wrap (list (<ctor> (list/join placements)))))) - ([#Tuple tuple$] - [#Form form$]) + (wrap (list [cursor (<tag> (list/join placements))])))) + ([#Tuple] + [#Form]) - [_ (#Record pairs)] + [cursor (#Record pairs)] (do maybe-monad [=pairs (monad/map maybe-monad (: (-> [Code Code] (Maybe [Code Code])) @@ -5504,7 +5504,7 @@ _ #None)))) pairs)] - (wrap (list (record$ =pairs)))) + (wrap (list [cursor (#Record =pairs)]))) )) (macro: #export (with-expansions tokens) |