From 85239d2c294a28b45f46f0b1333d161a403270f6 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 10 Aug 2019 23:46:33 -0400
Subject: Got the new compiler working again.

---
 new-luxc/source/luxc/lang/host/jvm/def.lux | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/host/jvm/def.lux b/new-luxc/source/luxc/lang/host/jvm/def.lux
index 4d1b99da0..138098929 100644
--- a/new-luxc/source/luxc/lang/host/jvm/def.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/def.lux
@@ -4,9 +4,11 @@
    [control
     ["." function]]
    [data
-    ["." text
-     format]
     ["." product]
+    [number
+     ["i" int]]
+    ["." text
+     ["%" format (#+ format)]]
     [collection
      ["." array (#+ Array)]
      ["." list ("#/." functor)]]]
@@ -126,12 +128,12 @@
 
 (def: (class-flags config)
   (-> //.Class-Config Int)
-  ($_ i/+
+  ($_ i.+
       (if (get@ #//.finalC config) (Opcodes::ACC_FINAL) +0)))
 
 (def: (method-flags config)
   (-> //.Method-Config Int)
-  ($_ i/+
+  ($_ i.+
       (if (get@ #//.staticM config) (Opcodes::ACC_STATIC) +0)
       (if (get@ #//.finalM config) (Opcodes::ACC_FINAL) +0)
       (if (get@ #//.synchronizedM config) (Opcodes::ACC_SYNCHRONIZED) +0)
@@ -139,7 +141,7 @@
 
 (def: (field-flags config)
   (-> //.Field-Config Int)
-  ($_ i/+
+  ($_ i.+
       (if (get@ #//.staticF config) (Opcodes::ACC_STATIC) +0)
       (if (get@ #//.finalF config) (Opcodes::ACC_FINAL) +0)
       (if (get@ #//.transientF config) (Opcodes::ACC_TRANSIENT) +0)
@@ -179,7 +181,7 @@
 
 (def: class-computes
   Int
-  ($_ i/+
+  ($_ i.+
       (ClassWriter::COMPUTE_MAXS)
       ## (ClassWriter::COMPUTE_FRAMES)
       ))
@@ -191,7 +193,7 @@
          (host.type [byte]))
      (let [writer (|> (do-to (ClassWriter::new class-computes)
                         (ClassWriter::visit (version-flag version)
-                                            ($_ i/+
+                                            ($_ i.+
                                                 (Opcodes::ACC_SUPER)
                                                 <flag>
                                                 (visibility-flag visibility)
@@ -218,7 +220,7 @@
       (host.type [byte]))
   (let [writer (|> (do-to (ClassWriter::new class-computes)
                      (ClassWriter::visit (version-flag version)
-                                         ($_ i/+
+                                         ($_ i.+
                                              (Opcodes::ACC_SUPER)
                                              (Opcodes::ACC_INTERFACE)
                                              (visibility-flag visibility)
@@ -237,7 +239,7 @@
   (-> //.Visibility //.Method-Config Text Method //.Inst
       //.Def)
   (function (_ writer)
-    (let [=method (ClassWriter::visitMethod ($_ i/+
+    (let [=method (ClassWriter::visitMethod ($_ i.+
                                                 (visibility-flag visibility)
                                                 (method-flags config))
                                             ($t.binary-name name)
@@ -255,7 +257,7 @@
   (-> //.Visibility //.Method-Config Text Method
       //.Def)
   (function (_ writer)
-    (let [=method (ClassWriter::visitMethod ($_ i/+
+    (let [=method (ClassWriter::visitMethod ($_ i.+
                                                 (visibility-flag visibility)
                                                 (method-flags config)
                                                 (Opcodes::ACC_ABSTRACT))
@@ -270,7 +272,7 @@
 (def: #export (field visibility config name type)
   (-> //.Visibility //.Field-Config Text Type //.Def)
   (function (_ writer)
-    (let [=field (do-to (ClassWriter::visitField ($_ i/+
+    (let [=field (do-to (ClassWriter::visitField ($_ i.+
                                                      (visibility-flag visibility)
                                                      (field-flags config))
                                                  ($t.binary-name name)
@@ -285,7 +287,7 @@
   [(def: #export (<name> visibility config name value)
      (-> //.Visibility //.Field-Config Text <lux-type> //.Def)
      (function (_ writer)
-       (let [=field (do-to (ClassWriter::visitField ($_ i/+
+       (let [=field (do-to (ClassWriter::visitField ($_ i.+
                                                         (visibility-flag visibility)
                                                         (field-flags config))
                                                     ($t.binary-name name)
-- 
cgit v1.2.3