From a72e34d30eaf3557f9b76ced9605a95759ce8eca Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 24 Feb 2019 12:26:17 -0400
Subject: Got new-luxc to compile/build again.

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

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/reference.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/reference.jvm.lux
index 175338ba4..fe4a58b36 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/reference.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/reference.jvm.lux
@@ -5,11 +5,11 @@
    [data
     [text
      format]]
-   [platform
+   [tool
     [compiler
      ["." name]
      ["." reference (#+ Register Variable)]
-     ["." phase ("operation/." Monad<Operation>)
+     ["." phase ("operation/." monad)
       ["." translation]]]]]
   [luxc
    [lang
@@ -30,7 +30,7 @@
 
 (def: (foreign variable)
   (-> Register (Operation Inst))
-  (do phase.Monad<Operation>
+  (do phase.monad
     [function-class translation.context]
     (wrap (|>> (_.ALOAD 0)
                (_.GETFIELD function-class
@@ -52,6 +52,6 @@
 
 (def: #export (constant name)
   (-> Name (Operation Inst))
-  (do phase.Monad<Operation>
+  (do phase.monad
     [bytecode-name (translation.remember name)]
     (operation/wrap (_.GETSTATIC bytecode-name //.value-field //.$Object))))
-- 
cgit v1.2.3