aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/jvm
diff options
context:
space:
mode:
authorEduardo Julian2020-04-16 00:22:24 -0400
committerEduardo Julian2020-04-16 00:22:24 -0400
commit1888b5c3288e4e7653a424e7314ea5c8277ab360 (patch)
treea40768d314bc610f9c17446d86e33eba44d5e6c8 /new-luxc/source/luxc/lang/translation/jvm
parent4f1553c6f6bb579f09749d5b9ca955c43a7440a4 (diff)
Generating definition names in a new way.
Diffstat (limited to '')
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm.lux5
-rw-r--r--new-luxc/source/luxc/lang/translation/jvm/runtime.lux4
2 files changed, 5 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm.lux b/new-luxc/source/luxc/lang/translation/jvm.lux
index 8e2cd2af6..390b1497d 100644
--- a/new-luxc/source/luxc/lang/translation/jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm.lux
@@ -96,9 +96,12 @@
## TODO: This is a hackish solution to the issue I have.
## It should be cleaned up ASAP.
+(def: prefix "lux.")
+
(def: #export class-name'
(-> Text Text)
- (text.replace-all .module-separator ..class-path-separator))
+ (|>> (text.replace-all .module-separator ..class-path-separator)
+ (format ..prefix)))
(def: #export (class-name module id)
(-> Module artifact.ID Text)
diff --git a/new-luxc/source/luxc/lang/translation/jvm/runtime.lux b/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
index eb3ed9b7f..7d6c5427e 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
@@ -29,11 +29,9 @@
["_" inst]]]]]
["." // (#+ ByteCode)])
-(def: prefix "lux/")
-
(def: #export (class-name [module id])
(-> generation.Context Text)
- (format ..prefix module "/" (%.nat id)))
+ (//.class-name module id))
(def: $Text (type.class "java.lang.String" (list)))
(def: #export $Tag type.int)