diff options
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/macro/syntax/common/reader.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/lux/macro/syntax/common/reader.lux b/stdlib/source/lux/macro/syntax/common/reader.lux index 99277857f..7f66a3879 100644 --- a/stdlib/source/lux/macro/syntax/common/reader.lux +++ b/stdlib/source/lux/macro/syntax/common/reader.lux @@ -3,9 +3,9 @@ [abstract monad] [control - ["p" parser ("#;." monad)]] + ["p" parser ("#@." monad)]] [data - ["." name ("#;." equivalence)] + ["." name ("#@." equivalence)] ["." product] ["." maybe] [collection @@ -17,8 +17,8 @@ ## Exports (def: #export export (Syntax Bit) - (p.either (p.after (s.this (' #export)) (p;wrap #1)) - (p;wrap #0))) + (p.either (p.after (s.this (' #export)) (p@wrap #1)) + (p@wrap #0))) ## Declarations (def: #export declaration @@ -28,7 +28,7 @@ (foo bar baz))} (Syntax //.Declaration) (p.either (p.and s.local-identifier - (p;wrap (list))) + (p@wrap (list))) (s.form (p.and s.local-identifier (p.some s.local-identifier))))) @@ -46,7 +46,7 @@ type s.any value s.any] (wrap [(#.Some type) value]))) - (p.and (p;wrap #.None) + (p.and (p@wrap #.None) s.any))) (def: _definition-anns-tag^ @@ -92,7 +92,7 @@ (-> (List [Name Code]) (List Text)) (<| (maybe.default (list)) (: (Maybe (List Text))) - (case (list.find (|>> product.left (name;= ["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])] |