aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/meta/location.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/meta/location.lux14
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/meta/location.lux b/stdlib/source/library/lux/meta/location.lux
index e83823a84..1c2908972 100644
--- a/stdlib/source/library/lux/meta/location.lux
+++ b/stdlib/source/library/lux/meta/location.lux
@@ -1,8 +1,8 @@
(.using
- [library
- [lux "*"
- [abstract
- [equivalence {"+" Equivalence}]]]])
+ [library
+ [lux "*"
+ [abstract
+ [equivalence {"+" Equivalence}]]]])
(implementation: .public equivalence
(Equivalence Location)
@@ -24,9 +24,9 @@
(let [location (value@ .#location compiler)]
{.#Right [compiler
(list (` (.: .Location
- [(~ [..dummy {.#Text (value@ .#module location)}])
- (~ [..dummy {.#Nat (value@ .#line location)}])
- (~ [..dummy {.#Nat (value@ .#column location)}])])))]})
+ [.#module (~ [..dummy {.#Text (value@ .#module location)}])
+ .#line (~ [..dummy {.#Nat (value@ .#line location)}])
+ .#column (~ [..dummy {.#Nat (value@ .#column location)}])])))]})
_
{.#Left (`` (("lux in-module" (~~ (static .prelude_module)) wrong_syntax_error) (symbol ..here)))}))