From b14102eaa2a80f51f160ba293ec01928dbe683c3 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 22 Jul 2018 02:52:46 -0400
Subject: - Some fixes due to recent changes in stdlib. - Removed some (now)
 useless modules.

---
 .../luxc/lang/translation/jvm/primitive.jvm.lux     | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux
index f1d639b72..c32e80d56 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/primitive.jvm.lux
@@ -5,27 +5,28 @@
    [data
     [text
      format]]
-   [language
-    [compiler ("operation/" Monad<Operation>)]]]
+   [compiler
+    [default
+     [phase ("operation/." Monad<Operation>)]]]]
   [luxc
    [lang
     [host
-     [jvm (#+ Inst Operation)
-      ["$i" inst]
+     ["." jvm (#+ Inst Operation)
+      ["_" inst]
       ["$t" type]]]]])
 
 (def: #export (bit value)
   (-> Bit (Operation Inst))
-  (operation/wrap ($i.GETSTATIC "java.lang.Boolean"
-                                (if value "TRUE" "FALSE")
-                                ($t.class "java.lang.Boolean" (list)))))
+  (operation/wrap (_.GETSTATIC "java.lang.Boolean"
+                               (if value "TRUE" "FALSE")
+                               ($t.class "java.lang.Boolean" (list)))))
 
 (do-template [<name> <type> <load> <wrap>]
   [(def: #export (<name> value)
      (-> <type> (Operation Inst))
      (operation/wrap (|>> (<load> value) <wrap>)))]
 
-  [i64  Int  $i.long   ($i.wrap #jvm.Long)]
-  [f64  Frac $i.double ($i.wrap #jvm.Double)]
-  [text Text $i.string (<|)]
+  [i64  Int  _.long   (_.wrap #jvm.Long)]
+  [f64  Frac _.double (_.wrap #jvm.Double)]
+  [text Text _.string (<|)]
   )
-- 
cgit v1.2.3