aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/macro
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/macro')
-rw-r--r--stdlib/source/lux/macro/code.lux6
-rw-r--r--stdlib/source/lux/macro/poly.lux12
-rw-r--r--stdlib/source/lux/macro/poly/equivalence.lux8
-rw-r--r--stdlib/source/lux/macro/poly/functor.lux6
-rw-r--r--stdlib/source/lux/macro/poly/json.lux14
-rw-r--r--stdlib/source/lux/macro/syntax.lux10
-rw-r--r--stdlib/source/lux/macro/syntax/common.lux2
-rw-r--r--stdlib/source/lux/macro/syntax/common/reader.lux2
8 files changed, 30 insertions, 30 deletions
diff --git a/stdlib/source/lux/macro/code.lux b/stdlib/source/lux/macro/code.lux
index cb977f36e..f16229460 100644
--- a/stdlib/source/lux/macro/code.lux
+++ b/stdlib/source/lux/macro/code.lux
@@ -1,9 +1,9 @@
(.module:
- [lux #- nat int rev]
- (lux (control [equivalence #+ Equivalence])
+ [lux (#- nat int rev)]
+ (lux (control [equivalence (#+ Equivalence)])
(data bool
number
- [text #+ Equivalence<Text> "text/" Monoid<Text>]
+ [text (#+ Equivalence<Text>) "text/" Monoid<Text>]
ident
(collection [list #* "" Functor<List> Fold<List>])
)))
diff --git a/stdlib/source/lux/macro/poly.lux b/stdlib/source/lux/macro/poly.lux
index 45e2aa900..82a18b66a 100644
--- a/stdlib/source/lux/macro/poly.lux
+++ b/stdlib/source/lux/macro/poly.lux
@@ -1,22 +1,22 @@
(.module:
- [lux #- function]
- (lux (control [monad #+ do Monad]
+ [lux (#- function)]
+ (lux (control [monad (#+ do Monad)]
[equivalence]
["p" parser]
- ["ex" exception #+ exception:])
+ ["ex" exception (#+ exception:)])
[function]
(data [text "text/" Monoid<Text>]
(collection [list "list/" Fold<List> Monad<List> Monoid<List>]
- ["dict" dictionary #+ Dictionary])
+ ["dict" dictionary (#+ Dictionary)])
[number "nat/" Codec<Text,Nat>]
[product]
[bool]
[maybe]
[ident "ident/" Equivalence<Ident> Codec<Text,Ident>]
["e" error])
- [macro #+ with-gensyms]
+ [macro (#+ with-gensyms)]
(macro [code]
- ["s" syntax #+ syntax: Syntax]
+ ["s" syntax (#+ syntax: Syntax)]
(syntax ["cs" common]
(common ["csr" reader]
["csw" writer])))
diff --git a/stdlib/source/lux/macro/poly/equivalence.lux b/stdlib/source/lux/macro/poly/equivalence.lux
index 00ffa3257..e79c20ea6 100644
--- a/stdlib/source/lux/macro/poly/equivalence.lux
+++ b/stdlib/source/lux/macro/poly/equivalence.lux
@@ -1,6 +1,6 @@
(.module:
lux
- (lux (control [monad #+ do Monad]
+ (lux (control [monad (#+ do Monad)]
["eq" equivalence]
["p" parser])
(data [text "text/" Monoid<Text>]
@@ -10,7 +10,7 @@
[array]
[queue]
[set]
- ["dict" dictionary #+ Dictionary]
+ ["dict" dictionary (#+ Dictionary)]
(tree [rose]))
[number "nat/" Codec<Text,Nat>]
[product]
@@ -21,9 +21,9 @@
["i" instant])
[macro]
(macro [code]
- [syntax #+ syntax: Syntax]
+ [syntax (#+ syntax: Syntax)]
(syntax [common])
- [poly #+ poly:])
+ [poly (#+ poly:)])
(type [unit])
(language [type])
))
diff --git a/stdlib/source/lux/macro/poly/functor.lux b/stdlib/source/lux/macro/poly/functor.lux
index ae1611c55..bc80ba646 100644
--- a/stdlib/source/lux/macro/poly/functor.lux
+++ b/stdlib/source/lux/macro/poly/functor.lux
@@ -1,6 +1,6 @@
(.module:
lux
- (lux (control [monad #+ do Monad]
+ (lux (control [monad (#+ do Monad)]
[functor]
["p" parser])
(data [text]
@@ -9,9 +9,9 @@
[product])
[macro]
(macro [code]
- [syntax #+ syntax: Syntax]
+ [syntax (#+ syntax: Syntax)]
(syntax [common])
- [poly #+ poly:])
+ [poly (#+ poly:)])
(language [type])
))
diff --git a/stdlib/source/lux/macro/poly/json.lux b/stdlib/source/lux/macro/poly/json.lux
index 4ac28a2a5..32ccc001e 100644
--- a/stdlib/source/lux/macro/poly/json.lux
+++ b/stdlib/source/lux/macro/poly/json.lux
@@ -1,7 +1,7 @@
(.module: {#.doc "Codecs for values in the JSON format."}
lux
- (lux (control [monad #+ do Monad]
- [equivalence #+ Equivalence]
+ (lux (control [monad (#+ do Monad)]
+ [equivalence (#+ Equivalence)]
codec
["p" parser "p/" Monad<Parser>])
(data [bool]
@@ -15,16 +15,16 @@
[sum]
[product]
(collection [list "list/" Fold<List> Monad<List>]
- [row #+ Row row "row/" Monad<Row>]
+ [row (#+ Row row) "row/" Monad<Row>]
["d" dictionary])
- (format ["//" json #+ JSON]))
+ (format ["//" json (#+ JSON)]))
(time ## ["i" instant]
["du" duration]
["da" date])
- [macro #+ with-gensyms]
- (macro ["s" syntax #+ syntax:]
+ [macro (#+ with-gensyms)]
+ (macro ["s" syntax (#+ syntax:)]
[code]
- [poly #+ poly:])
+ [poly (#+ poly:)])
(type [unit])
(language [type])
))
diff --git a/stdlib/source/lux/macro/syntax.lux b/stdlib/source/lux/macro/syntax.lux
index c333b3d8f..f689de0f6 100644
--- a/stdlib/source/lux/macro/syntax.lux
+++ b/stdlib/source/lux/macro/syntax.lux
@@ -1,8 +1,8 @@
(.module:
- [lux #- nat int rev]
- (lux [macro #+ with-gensyms]
- (control [monad #+ do Monad]
- [equivalence #+ Equivalence]
+ [lux (#- nat int rev)]
+ (lux [macro (#+ with-gensyms)]
+ (control [monad (#+ do Monad)]
+ [equivalence (#+ Equivalence)]
["p" parser])
(data [bool]
[number]
@@ -10,7 +10,7 @@
[ident]
(collection [list "list/" Functor<List>])
[maybe]
- [error #+ Error]))
+ [error (#+ Error)]))
(// [code "code/" Equivalence<Code>]))
## [Utils]
diff --git a/stdlib/source/lux/macro/syntax/common.lux b/stdlib/source/lux/macro/syntax/common.lux
index 32e5118af..1ea1624da 100644
--- a/stdlib/source/lux/macro/syntax/common.lux
+++ b/stdlib/source/lux/macro/syntax/common.lux
@@ -1,7 +1,7 @@
(.module: {#.doc "Commons syntax readers and writers.
The goal is to be able to reuse common syntax in macro definitions across libraries."}
- [lux #- Definition])
+ [lux (#- Definition)])
(type: #export Declaration
{#declaration-name Text
diff --git a/stdlib/source/lux/macro/syntax/common/reader.lux b/stdlib/source/lux/macro/syntax/common/reader.lux
index 0db5f645b..63b185bd8 100644
--- a/stdlib/source/lux/macro/syntax/common/reader.lux
+++ b/stdlib/source/lux/macro/syntax/common/reader.lux
@@ -7,7 +7,7 @@
[product]
[maybe])
[macro]
- (macro ["s" syntax #+ syntax: Syntax]))
+ (macro ["s" syntax (#+ syntax: Syntax)]))
[//])
## Exports
generated by cgit v1.2.3 (git 2.25.1) at 2024-09-13 03:52:42 +0000