diff options
author | Eduardo Julian | 2021-08-23 02:30:53 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-08-23 02:30:53 -0400 |
commit | ec1f31b5a1492d5e0ab260397291d4449483bbd9 (patch) | |
tree | c730b4ca89af366779b0ad0f46fae705b5c2bcbc /stdlib/source/library/lux/meta/location.lux | |
parent | 1ea83ecadccc5adee1bdb35bd11527c3982c015e (diff) |
The Python compiler can now be compiled by the new JVM compiler.
Diffstat (limited to 'stdlib/source/library/lux/meta/location.lux')
-rw-r--r-- | stdlib/source/library/lux/meta/location.lux | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/meta/location.lux b/stdlib/source/library/lux/meta/location.lux index 24511eb26..f8d3a9023 100644 --- a/stdlib/source/library/lux/meta/location.lux +++ b/stdlib/source/library/lux/meta/location.lux @@ -19,8 +19,6 @@ #.column 0}) (macro: .public (here tokens compiler) - {#.doc (example "The Location of the current form." - (here))} (case tokens #.End (let [location (value@ #.location compiler)] @@ -33,15 +31,15 @@ _ (#.Left (`` (("lux in-module" (~~ (static .prelude_module)) wrong_syntax_error) (name_of ..here)))))) -(def: .public (format value) +(def: .public (format it) (-> Location Text) (let [separator "," - [file line column] value] + [file line column] it] ($_ "lux text concat" "@" - (`` (("lux in-module" (~~ (static .prelude_module)) .text\encode) file)) separator - (`` (("lux in-module" (~~ (static .prelude_module)) .nat\encode) line)) separator - (`` (("lux in-module" (~~ (static .prelude_module)) .nat\encode) column))))) + (`` (("lux in-module" (~~ (static .prelude_module)) .text\encoded) file)) separator + (`` (("lux in-module" (~~ (static .prelude_module)) .nat\encoded) line)) separator + (`` (("lux in-module" (~~ (static .prelude_module)) .nat\encoded) column))))) (def: \n ("lux i64 char" +10)) |