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.

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

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
index 154dcbdcf..afd140997 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/procedure/common.jvm.lux
@@ -8,12 +8,12 @@
     ["." text
      format]
     [collection
-     ["." list ("list/." Functor<List>)]
+     ["." list ("#/." functor)]
      ["." dictionary]]]
    ["." macro (#+ with-gensyms)
     ["." code]
     ["s" syntax (#+ syntax:)]]
-   [platform
+   [tool
     [compiler
      ["." phase
       [synthesis (#+ Synthesis)]
@@ -58,7 +58,7 @@
                        (function ((~ g!_) (~ g!extension-name) (~ g!phase) (~ g!inputs))
                          (case (~ g!inputs)
                            (^ (list (~+ g!inputC+)))
-                           (do phase.Monad<Operation>
+                           (do phase.monad
                              [(~+ (|> g!inputC+
                                       (list/map (function (_ g!input)
                                                   (list g!input (` ((~ g!phase) (~ g!input))))))
@@ -77,7 +77,7 @@
 (def: #export (variadic extension)
   (-> Variadic Handler)
   (function (_ extension-name phase inputsS)
-    (do phase.Monad<Operation>
+    (do phase.monad
       [inputsH (monad.map @ phase inputsS)]
       (wrap (extension inputsH)))))
 
-- 
cgit v1.2.3