diff options
Diffstat (limited to 'stdlib/source/library/lux/meta/location.lux')
-rw-r--r-- | stdlib/source/library/lux/meta/location.lux | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/stdlib/source/library/lux/meta/location.lux b/stdlib/source/library/lux/meta/location.lux index 2c4fc0eb1..56eafe44b 100644 --- a/stdlib/source/library/lux/meta/location.lux +++ b/stdlib/source/library/lux/meta/location.lux @@ -8,9 +8,9 @@ (Equivalence Location) (implementation (def (= reference subject) - (and ("lux text =" (the .#module reference) (the .#module subject)) - ("lux i64 =" (the .#line reference) (the .#line subject)) - ("lux i64 =" (the .#column reference) (the .#column subject)))))) + (and (.text_=# (the .#module reference) (the .#module subject)) + (.i64_=# (the .#line reference) (the .#line subject)) + (.i64_=# (the .#column reference) (the .#column subject)))))) (def .public dummy Location @@ -30,22 +30,22 @@ .#column (, [..dummy {.#Nat (the .#column location)}])])))]}) _ - {.#Left (`` (("lux in-module" (,, (static .prelude)) wrong_syntax_error) (symbol ..here)))}))) + {.#Left (`` ((.in_module# (,, (static .prelude)) wrong_syntax_error) (symbol ..here)))}))) (def .public (format it) (-> Location Text) (let [separator "," [file line column] it] - (all "lux text concat" + (all .text_composite# "@" - (`` (("lux in-module" (,, (static .prelude)) .text#encoded) file)) separator - (`` (("lux in-module" (,, (static .prelude)) .nat#encoded) line)) separator - (`` (("lux in-module" (,, (static .prelude)) .nat#encoded) column))))) + (`` ((.in_module# (,, (static .prelude)) .text#encoded) file)) separator + (`` ((.in_module# (,, (static .prelude)) .nat#encoded) line)) separator + (`` ((.in_module# (,, (static .prelude)) .nat#encoded) column))))) (def \n - ("lux i64 char" +10)) + (.int_char# +10)) (def .public (with location error) (-> Location Text Text) - (all "lux text concat" (..format location) \n + (all .text_composite# (..format location) \n error)) |