4 files changed, 20 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/translation/jvm/extension.lux b/new-luxc/source/luxc/lang/translation/jvm/extension.lux
new file mode 100644
index 000000000..9066dd156
--- /dev/null
+++ b/new-luxc/source/luxc/lang/translation/jvm/extension.lux
@@ -0,0 +1,16 @@
+(.module:
+  [lux #*
+   [data
+    [collection
+     ["." dictionary]]]]
+  [////
+   [host
+    [jvm (#+ Bundle)]]]
+  ["." / #_
+   ["#." common]
+   ["#." host]])
+
+(def: #export bundle
+  Bundle
+  (dictionary.merge /common.bundle
+                    /host.bundle))
diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.lux b/new-luxc/source/luxc/lang/translation/jvm/extension/common.lux
index a46813232..a46813232 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/extension/common.lux
diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux b/new-luxc/source/luxc/lang/translation/jvm/extension/host.lux
index ca6e31bfd..ca6e31bfd 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/host.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/extension/host.lux
diff --git a/new-luxc/source/luxc/lang/translation/jvm/runtime.lux b/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
index d616d62e9..f97831ac5 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/runtime.lux
@@ -322,7 +322,7 @@
 (def: reflection (|>> type.reflection reflection.reflection))
 
 (def: translate-runtime
-  (Operation ByteCode)
+  (Operation Any)
   (let [runtime-class (..reflection //.$Runtime)
         bytecode ($d.class #$.V1_6 #$.Public $.finalC runtime-class (list) (type.class "java.lang.Object" (list)) (list)
                            (|>> adt-methods
@@ -331,10 +331,10 @@
                                 io-methods))]
     (do phase.monad
       [_ (generation.execute! runtime-class [runtime-class bytecode])]
-      (wrap bytecode))))
+      (generation.save! false ["" runtime-class] [runtime-class bytecode]))))
 
 (def: translate-function
-  (Operation ByteCode)
+  (Operation Any)
   (let [applyI (|> (list.n/range 2 num-apply-variants)
                    (list@map (function (_ arity)
                                ($d.method #$.Public $.noneM apply-method (apply-signature arity)
@@ -363,7 +363,7 @@
                                    applyI))]
     (do phase.monad
       [_ (generation.execute! function-class [function-class bytecode])]
-      (wrap bytecode))))
+      (generation.save! false ["" function-class] [function-class bytecode]))))
 
 (def: #export translate
   (Operation Any)