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/host/jvm/inst.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'new-luxc/source/luxc/lang/host/jvm/inst.lux')

diff --git a/new-luxc/source/luxc/lang/host/jvm/inst.lux b/new-luxc/source/luxc/lang/host/jvm/inst.lux
index 9a26f8df0..5311f39d9 100644
--- a/new-luxc/source/luxc/lang/host/jvm/inst.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/inst.lux
@@ -9,13 +9,13 @@
     [text
      format]
     [collection
-     ["." list ("list/." Functor<List>)]]]
+     ["." list ("#/." functor)]]]
    ["." host (#+ import: do-to)]
    [macro
     ["." code]
     ["s" syntax (#+ syntax:)]]
    ["." function]
-   [platform
+   [tool
     [compiler
      [phase (#+ Operation)]]]]
   ["." // (#+ Primitive Inst)
@@ -134,12 +134,12 @@
        (do-to visitor
          (MethodVisitor::visitLdcInsn (<prepare> value)))))]
 
-  [boolean Bit id]
+  [boolean Bit  function.identity]
   [int     Int  host.long-to-int]
-  [long    Int  id]
-  [double  Frac id]
+  [long    Int  function.identity]
+  [double  Frac function.identity]
   [char    Nat  (|>> .int host.long-to-int host.int-to-char)]
-  [string  Text id]
+  [string  Text function.identity]
   )
 
 (syntax: (prefix {base s.local-identifier})
@@ -380,7 +380,7 @@
   (-> (List Inst) Inst)
   (case insts
     #.Nil
-    id
+    function.identity
 
     (#.Cons singleton #.Nil)
     singleton
-- 
cgit v1.2.3