aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm/source/luxc/lang/translation/jvm
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux41
1 files changed, 21 insertions, 20 deletions
diff --git a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
index 33552c135..e647bf71b 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
@@ -149,7 +149,7 @@
[_.I2L conversion::short_to_long]
)
-(def: conversion
+(def: conversion_bundle
Bundle
(<| (bundle.prefix "conversion")
(|> (: Bundle bundle.empty)
@@ -274,7 +274,7 @@
[double::< _.DCMPG -1]
)
-(def: int
+(def: int_bundle
Bundle
(<| (bundle.prefix (reflection.reflection reflection.int))
(|> (: Bundle bundle.empty)
@@ -293,7 +293,7 @@
(bundle.install "ushr" (binary int::ushr))
)))
-(def: long
+(def: long_bundle
Bundle
(<| (bundle.prefix (reflection.reflection reflection.long))
(|> (: Bundle bundle.empty)
@@ -312,7 +312,7 @@
(bundle.install "ushr" (binary long::ushr))
)))
-(def: float
+(def: float_bundle
Bundle
(<| (bundle.prefix (reflection.reflection reflection.float))
(|> (: Bundle bundle.empty)
@@ -325,7 +325,7 @@
(bundle.install "<" (binary float::<))
)))
-(def: double
+(def: double_bundle
Bundle
(<| (bundle.prefix (reflection.reflection reflection.double))
(|> (: Bundle bundle.empty)
@@ -338,7 +338,7 @@
(bundle.install "<" (binary double::<))
)))
-(def: char
+(def: char_bundle
Bundle
(<| (bundle.prefix (reflection.reflection reflection.char))
(|> (: Bundle bundle.empty)
@@ -455,7 +455,7 @@
valueI
_.AASTORE))))]))
-(def: array
+(def: array_bundle
Bundle
(<| (bundle.prefix "array")
(|> bundle.empty
@@ -773,7 +773,7 @@
(_.fuse (list@map product.right inputsTI))
(_.INVOKESPECIAL class "<init>" (type.method [(list) (list@map product.left inputsTI) type.void (list)]))))))]))
-(def: member
+(def: member_bundle
Bundle
(<| (bundle.prefix "member")
(|> (: Bundle bundle.empty)
@@ -925,7 +925,8 @@
(#synthesis.Extension [name inputsS+])
(#synthesis.Extension [name (list@map recur inputsS+)]))))
-(def: $Object (type.class "java.lang.Object" (list)))
+(def: $Object
+ (type.class "java.lang.Object" (list)))
(def: (anonymous_init_method env)
(-> (Environment Synthesis) (Type Method))
@@ -960,7 +961,7 @@
(_.fuse captureI+)
(_.INVOKESPECIAL class "<init>" (anonymous_init_method env))))))
-(def: (returnI returnT)
+(def: #export (returnI returnT)
(-> (Type Return) Inst)
(case (type.void? returnT)
(#.Right returnT)
@@ -1074,7 +1075,7 @@
_ (generation.save! artifact_id #.None directive)]
(..anonymous_instance generate archive class total_environment)))]))
-(def: bundle::class
+(def: class_bundle
Bundle
(<| (bundle.prefix "class")
(|> (: Bundle bundle.empty)
@@ -1084,14 +1085,14 @@
(def: #export bundle
Bundle
(<| (bundle.prefix "jvm")
- (|> ..conversion
- (dictionary.merge ..int)
- (dictionary.merge ..long)
- (dictionary.merge ..float)
- (dictionary.merge ..double)
- (dictionary.merge ..char)
- (dictionary.merge ..array)
+ (|> ..conversion_bundle
+ (dictionary.merge ..int_bundle)
+ (dictionary.merge ..long_bundle)
+ (dictionary.merge ..float_bundle)
+ (dictionary.merge ..double_bundle)
+ (dictionary.merge ..char_bundle)
+ (dictionary.merge ..array_bundle)
(dictionary.merge ..object_bundle)
- (dictionary.merge ..member)
- (dictionary.merge ..bundle::class)
+ (dictionary.merge ..member_bundle)
+ (dictionary.merge ..class_bundle)
)))