Ported JVM reference generation to the new JVM bytecode machinery.

1 files changed, 4 insertions, 4 deletions

diff --git a/new-luxc/source/luxc/lang/translation/jvm/reference.lux b/new-luxc/source/luxc/lang/translation/jvm/reference.lux
index 63fd0685a..886f461ce 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/reference.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/reference.lux
@@ -37,14 +37,14 @@
                            //.$Object)))))
 
 (def: local
-  (-> Register (Operation Inst))
-  (|>> _.ALOAD operation@wrap))
+  (-> Register Inst)
+  (|>> _.ALOAD))
 
 (def: #export (variable variable)
   (-> Variable (Operation Inst))
   (case variable
     (#reference.Local variable)
-    (local variable)
+    (operation@wrap (local variable))
     
     (#reference.Foreign variable)
     (foreign variable)))
@@ -53,4 +53,4 @@
   (-> Name (Operation Inst))
   (do phase.monad
     [bytecode-name (generation.remember name)]
-    (operation@wrap (_.GETSTATIC bytecode-name //.value-field //.$Object))))
+    (wrap (_.GETSTATIC bytecode-name //.value-field //.$Object))))