aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/target/jvm/constant.lux
diff options
context:
space:
mode:
authorEduardo Julian2019-11-09 20:11:40 -0400
committerEduardo Julian2019-11-09 20:11:40 -0400
commit7c97ca870883655449da7c64dbe3fc30f47ed928 (patch)
treea73931dcb636c722d2bb52103873064ef75cd3da /stdlib/source/lux/target/jvm/constant.lux
parenta23315e79ff58024134e5d20b4a4cb5bd8050152 (diff)
WIP: Tests for JVM bytecode machinery. [Part 0]
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/target/jvm/constant.lux6
1 files changed, 5 insertions, 1 deletions
diff --git a/stdlib/source/lux/target/jvm/constant.lux b/stdlib/source/lux/target/jvm/constant.lux
index 0cc7e16e1..91a72390a 100644
--- a/stdlib/source/lux/target/jvm/constant.lux
+++ b/stdlib/source/lux/target/jvm/constant.lux
@@ -40,6 +40,10 @@
{}
(Index UTF8)
+
+ (def: #export index
+ (-> Class (Index UTF8))
+ (|>> :representation))
(def: #export class
(-> (Index UTF8) Class)
@@ -48,7 +52,7 @@
(def: #export class-equivalence
(Equivalence Class)
(:: equivalence.contravariant map-1
- (|>> :representation)
+ ..index
//index.equivalence))
(def: class-writer