From af7f85c4eb724f2888ecce9c8b52d6d3bb1cd807 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 27 Apr 2019 23:41:47 -0400
Subject: Moved JVM type machinery to stdlib.

---
 new-luxc/source/luxc/lang/translation/jvm/reference.lux | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/jvm/reference.lux')

diff --git a/new-luxc/source/luxc/lang/translation/jvm/reference.lux b/new-luxc/source/luxc/lang/translation/jvm/reference.lux
index c821a9de2..63fd0685a 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/reference.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/reference.lux
@@ -9,13 +9,12 @@
     [compiler
      ["." name]
      ["." reference (#+ Register Variable)]
-     ["." phase ("operation/." monad)
+     ["." phase ("operation@." monad)
       ["." generation]]]]]
   [luxc
    [lang
     [host
      [jvm (#+ Inst Operation)
-      ["$t" type]
       ["_" inst]]]]]
   ["." //])
 
@@ -39,7 +38,7 @@
 
 (def: local
   (-> Register (Operation Inst))
-  (|>> _.ALOAD operation/wrap))
+  (|>> _.ALOAD operation@wrap))
 
 (def: #export (variable variable)
   (-> Variable (Operation Inst))
@@ -54,4 +53,4 @@
   (-> Name (Operation Inst))
   (do phase.monad
     [bytecode-name (generation.remember name)]
-    (operation/wrap (_.GETSTATIC bytecode-name //.value-field //.$Object))))
+    (operation@wrap (_.GETSTATIC bytecode-name //.value-field //.$Object))))
-- 
cgit v1.2.3