diff options
Diffstat (limited to 'stdlib/source/library/lux/macro/syntax')
4 files changed, 16 insertions, 16 deletions
diff --git a/stdlib/source/library/lux/macro/syntax/check.lux b/stdlib/source/library/lux/macro/syntax/check.lux index 54558b914..bdc4d9a98 100644 --- a/stdlib/source/library/lux/macro/syntax/check.lux +++ b/stdlib/source/library/lux/macro/syntax/check.lux @@ -32,8 +32,8 @@ (def: .public (format (^slots [#type #value])) (-> Check Code) (` ((~ (code.text ..extension)) - (~ type) - (~ value)))) + (~ #type) + (~ #value)))) (def: .public parser (Parser Check) diff --git a/stdlib/source/library/lux/macro/syntax/declaration.lux b/stdlib/source/library/lux/macro/syntax/declaration.lux index db8d135ca..bb7abe7b0 100644 --- a/stdlib/source/library/lux/macro/syntax/declaration.lux +++ b/stdlib/source/library/lux/macro/syntax/declaration.lux @@ -37,7 +37,7 @@ (-> Declaration Code) (let [g!name (code.local_identifier (value@ #name value))] (case (value@ #arguments value) - #.End + {.#End} g!name arguments 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))) diff --git a/stdlib/source/library/lux/macro/syntax/export.lux b/stdlib/source/library/lux/macro/syntax/export.lux index 2d33f7098..6fe7afd4b 100644 --- a/stdlib/source/library/lux/macro/syntax/export.lux +++ b/stdlib/source/library/lux/macro/syntax/export.lux @@ -16,11 +16,11 @@ (do [! <>.monad] [candiate <code>.next] (case candiate - [_ {#.Identifier ["" _]}] + [_ {.#Identifier ["" _]}] (in default_policy) - (^or [_ {#.Bit _}] - [_ {#.Identifier _}]) + (^or [_ {.#Bit _}] + [_ {.#Identifier _}]) (do ! [_ <code>.any] (in candiate)) |