diff options
Diffstat (limited to 'stdlib/source/lux/macro/syntax/common/reader.lux')
-rw-r--r-- | stdlib/source/lux/macro/syntax/common/reader.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/lux/macro/syntax/common/reader.lux b/stdlib/source/lux/macro/syntax/common/reader.lux index 069bf1cf0..d57e4bcde 100644 --- a/stdlib/source/lux/macro/syntax/common/reader.lux +++ b/stdlib/source/lux/macro/syntax/common/reader.lux @@ -17,7 +17,7 @@ (def: #export export (Parser Bit) - (p.either (p.after (s.this (' #export)) (p@wrap #1)) + (p.either (p.after (s.tag! (name-of #export)) (p@wrap #1)) (p@wrap #0))) (def: #export declaration @@ -39,7 +39,7 @@ (def: check^ (Parser [(Maybe Code) Code]) (p.either (s.form (do p.monad - [_ (s.this (' "lux check")) + [_ (s.text! "lux check") type s.any value s.any] (wrap [(#.Some type) value]))) @@ -52,9 +52,9 @@ (def: (_definition-anns^ _) (-> Any (Parser //.Annotations)) - (p.or (s.this (' #.Nil)) + (p.or (s.tag! (name-of #.Nil)) (s.form (do p.monad - [_ (s.this (' #.Cons)) + [_ (s.tag! (name-of #.Cons)) [head tail] (p.and (s.tuple (p.and _definition-anns-tag^ s.any)) (_definition-anns^ []))] (wrap [head tail]))) @@ -63,10 +63,10 @@ (def: (flat-list^ _) (-> Any (Parser (List Code))) (p.either (do p.monad - [_ (s.this (' #.Nil))] + [_ (s.tag! (name-of #.Nil))] (wrap (list))) (s.form (do p.monad - [_ (s.this (' #.Cons)) + [_ (s.tag! (name-of #.Cons)) [head tail] (s.tuple (p.and s.any s.any)) tail (s.local (list tail) (flat-list^ []))] (wrap (#.Cons head tail)))))) @@ -78,7 +78,7 @@ (p.after s.any) s.form (do p.monad - [_ (s.this (' <tag>))] + [_ (s.tag! (name-of <tag>))] <then>)))] [tuple-meta^ (List Code) #.Tuple (flat-list^ [])] @@ -111,7 +111,7 @@ s.lift)] (s.local me-definition-raw (s.form (do @ - [_ (s.this (' "lux def")) + [_ (s.text! "lux def") definition-name s.local-identifier [?definition-type definition-value] check^ definition-anns s.any |