diff options
Diffstat (limited to 'stdlib/source/library/lux/macro/syntax/definition.lux')
-rw-r--r-- | stdlib/source/library/lux/macro/syntax/definition.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/library/lux/macro/syntax/definition.lux b/stdlib/source/library/lux/macro/syntax/definition.lux index 9cbe2fb1a..feb0f908a 100644 --- a/stdlib/source/library/lux/macro/syntax/definition.lux +++ b/stdlib/source/library/lux/macro/syntax/definition.lux @@ -47,21 +47,21 @@ (def: dummy Code - (` [#.module (~ (code.text (value@ #.module location.dummy))) - #.line (~ (code.nat (value@ #.line location.dummy))) - #.column (~ (code.nat (value@ #.column location.dummy)))])) + (` [.#module (~ (code.text (value@ .#module location.dummy))) + .#line (~ (code.nat (value@ .#line location.dummy))) + .#column (~ (code.nat (value@ .#column location.dummy)))])) (def: .public (format (^slots [#name #value #export?])) (-> Definition Code) (` ((~ (code.text ..extension)) - (~ (code.local_identifier name)) - (~ (case value - {#.Left check} + (~ (code.local_identifier #name)) + (~ (case #value + {.#Left check} (//check.format check) - {#.Right value} + {.#Right value} value)) - (~ (code.bit export?))))) + (~ (code.bit #export?))))) (def: .public (parser compiler) (-> Lux (Parser Definition)) @@ -90,9 +90,9 @@ (do <>.monad [definition (..parser compiler) _ (case (value@ #value definition) - {#.Left _} + {.#Left _} (in []) - {#.Right _} + {.#Right _} (<>.lifted (exception.except ..lacks_type [definition])))] (in definition))) |