diff options
Diffstat (limited to 'stdlib/source/lux/macro/syntax/common/reader.lux')
| -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 9ab6d6381..7874e4d54 100644 --- a/stdlib/source/lux/macro/syntax/common/reader.lux +++ b/stdlib/source/lux/macro/syntax/common/reader.lux @@ -8,7 +8,7 @@ [maybe]) [macro] (macro ["s" syntax #+ syntax: Syntax])) - [.. #*]) + [// #*]) ## Exports (def: #export export @@ -119,18 +119,18 @@ definition-anns (s;local (list definition-anns) (_definition-anns^ [])) #let [definition-args (find-definition-args definition-anns)]] - (wrap {#..;definition-name definition-name - #..;definition-type ?definition-type - #..;definition-anns definition-anns - #..;definition-value definition-value - #..;definition-args definition-args})))))) + (wrap {#//;definition-name definition-name + #//;definition-type ?definition-type + #//;definition-anns definition-anns + #//;definition-value definition-value + #//;definition-args definition-args})))))) (def: #export (typed-definition compiler) {#;doc "A reader for definitions that ensures the input syntax is typed."} (-> Compiler (Syntax Definition)) (do p;Monad<Parser> [_definition (definition compiler) - _ (case (get@ #..;definition-type _definition) + _ (case (get@ #//;definition-type _definition) (#;Some _) (wrap []) |