aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--stdlib/source/lux.lux14
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)