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.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/macro/syntax/common/reader.lux b/stdlib/source/lux/macro/syntax/common/reader.lux
index 63b185bd8..a1b9ceb70 100644
--- a/stdlib/source/lux/macro/syntax/common/reader.lux
+++ b/stdlib/source/lux/macro/syntax/common/reader.lux
@@ -1,9 +1,9 @@
(.module: {#.doc "Commons syntax readers."}
lux
(lux (control monad
- ["p" parser "p/" Monad<Parser>])
+ ["p" parser ("parser/" Monad<Parser>)])
(data (collection [list])
- [ident "ident/" Equivalence<Ident>]
+ [ident ("ident/" Equivalence<Ident>)]
[product]
[maybe])
[macro]
@@ -13,8 +13,8 @@
## Exports
(def: #export export
(Syntax Bool)
- (p.either (p.after (s.this (' #export)) (p/wrap true))
- (p/wrap false)))
+ (p.either (p.after (s.this (' #export)) (parser/wrap true))
+ (parser/wrap false)))
## Declarations
(def: #export declaration
@@ -24,7 +24,7 @@
(foo bar baz))}
(Syntax //.Declaration)
(p.either (p.seq s.local-symbol
- (p/wrap (list)))
+ (parser/wrap (list)))
(s.form (p.seq s.local-symbol
(p.many s.local-symbol)))))
@@ -42,7 +42,7 @@
type s.any
value s.any]
(wrap [(#.Some type) value])))
- (p.seq (p/wrap #.None)
+ (p.seq (parser/wrap #.None)
s.any)))
(def: _definition-anns-tag^