aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/macro/syntax/common/reader.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/macro/syntax/common/reader.lux8
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/macro/syntax/common/reader.lux b/stdlib/source/lux/macro/syntax/common/reader.lux
index 818320a1a..2ec2ee95d 100644
--- a/stdlib/source/lux/macro/syntax/common/reader.lux
+++ b/stdlib/source/lux/macro/syntax/common/reader.lux
@@ -4,7 +4,7 @@
monad
["p" parser ("parser/." Monad<Parser>)]]
[data
- [ident ("ident/." Equivalence<Ident>)]
+ [name ("name/." Equivalence<Name>)]
["." product]
["." maybe]
[collection
@@ -49,7 +49,7 @@
s.any)))
(def: _definition-anns-tag^
- (Syntax Ident)
+ (Syntax Name)
(s.tuple (p.seq s.text s.text)))
(def: (_definition-anns^ _)
@@ -88,9 +88,9 @@
)
(def: (find-definition-args meta-data)
- (-> (List [Ident Code]) (List Text))
+ (-> (List [Name Code]) (List Text))
(<| (maybe.default (list))
- (case (list.find (|>> product.left (ident/= ["lux" "func-args"])) meta-data)
+ (case (list.find (|>> product.left (name/= ["lux" "func-args"])) meta-data)
(^multi (#.Some [_ value])
[(p.run (list value) tuple-meta^)
(#.Right [_ args])]