aboutsummaryrefslogtreecommitdiff
path: root/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux
diff options
context:
space:
mode:
Diffstat (limited to 'lux-jvm/source/luxc/lang/translation/jvm/runtime.lux')
-rw-r--r--lux-jvm/source/luxc/lang/translation/jvm/runtime.lux34
1 files changed, 17 insertions, 17 deletions
diff --git a/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux b/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux
index e8f678211..13c5fe074 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/runtime.lux
@@ -40,11 +40,11 @@
["." // (#+ ByteCode)])
(def: $Text (type.class "java.lang.String" (list)))
-(def: #export $Tag type.int)
-(def: #export $Flag (type.class "java.lang.Object" (list)))
-(def: #export $Value (type.class "java.lang.Object" (list)))
-(def: #export $Index type.int)
-(def: #export $Stack (type.array $Value))
+(def: .public $Tag type.int)
+(def: .public $Flag (type.class "java.lang.Object" (list)))
+(def: .public $Value (type.class "java.lang.Object" (list)))
+(def: .public $Index type.int)
+(def: .public $Stack (type.array $Value))
(def: $Throwable (type.class "java.lang.Throwable" (list)))
(def: nullary_init_methodT
@@ -53,7 +53,7 @@
(def: throw_methodT
(type.method [(list) (list) type.void (list)]))
-(def: #export logI
+(def: .public logI
Inst
(let [PrintStream (type.class "java.io.PrintStream" (list))
outI (_.GETSTATIC (type.class "java.lang.System" (list)) "out" PrintStream)
@@ -65,11 +65,11 @@
(def: variant_method
(type.method [(list) (list $Tag $Flag $Value) //.$Variant (list)]))
-(def: #export variantI
+(def: .public variantI
Inst
(_.INVOKESTATIC //.$Runtime "variant_make" variant_method))
-(def: #export leftI
+(def: .public leftI
Inst
(|>> _.ICONST_0
_.NULL
@@ -77,7 +77,7 @@
_.POP2
variantI))
-(def: #export rightI
+(def: .public rightI
Inst
(|>> _.ICONST_1
(_.string "")
@@ -85,9 +85,9 @@
_.POP2
variantI))
-(def: #export someI Inst rightI)
+(def: .public someI Inst rightI)
-(def: #export noneI
+(def: .public noneI
Inst
(|>> _.ICONST_0
_.NULL
@@ -109,11 +109,11 @@
noneI
_.ARETURN)))
-(def: #export partials_field Text "partials")
-(def: #export apply_method Text "apply")
-(def: #export num_apply_variants Nat 8)
+(def: .public partials_field Text "partials")
+(def: .public apply_method Text "apply")
+(def: .public num_apply_variants Nat 8)
-(def: #export (apply_signature arity)
+(def: .public (apply_signature arity)
(-> Arity (Type Method))
(type.method [(list) (list.repeat arity $Value) $Value (list)]))
@@ -292,7 +292,7 @@
)))
)))
-(def: #export try (type.method [(list) (list //.$Function) //.$Variant (list)]))
+(def: .public try (type.method [(list) (list //.$Function) //.$Variant (list)]))
(def: io_methods
Def
@@ -390,7 +390,7 @@
_ (generation.save! ..function_id #.None directive)]
(in [..function_id #.None bytecode]))))
-(def: #export translate
+(def: .public translate
(Operation [Registry Output])
(do phase.monad
[runtime_payload ..translate_runtime