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/primitive.lux | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/primitive.lux b/new-luxc/source/luxc/lang/translation/jvm/primitive.lux
index f9d9034ea..b97e50419 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/primitive.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/primitive.lux
@@ -5,19 +5,21 @@
    [data
     [text
      format]]
+   [target
+    [jvm
+     ["$t" type]]]
    [tool
     [compiler
-     [phase ("operation/." monad)]]]]
+     [phase ("operation@." monad)]]]]
   [luxc
    [lang
     [host
      ["." jvm (#+ Inst Operation)
-      ["_" inst]
-      ["$t" type]]]]])
+      ["_" inst]]]]])
 
 (def: #export (bit value)
   (-> Bit (Operation Inst))
-  (operation/wrap (_.GETSTATIC "java.lang.Boolean"
+  (operation@wrap (_.GETSTATIC "java.lang.Boolean"
                                (if value "TRUE" "FALSE")
                                ($t.class "java.lang.Boolean" (list)))))
 
@@ -25,9 +27,9 @@
   [(def: #export (<name> value)
      (-> <type> (Operation Inst))
      (let [loadI (|> value <load>)]
-       (operation/wrap (|>> loadI <wrap>))))]
+       (operation@wrap (|>> loadI <wrap>))))]
 
-  [i64  (I64 Any) (<| _.long .int) (_.wrap #jvm.Long)]
-  [f64  Frac      _.double         (_.wrap #jvm.Double)]
+  [i64  (I64 Any) (<| _.long .int) (_.wrap #$t.Long)]
+  [f64  Frac      _.double         (_.wrap #$t.Double)]
   [text Text      _.string         (<|)]
   )
-- 
cgit v1.2.3