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/inst.lux | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 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 35f779799..fcf28d4a7 100644
--- a/new-luxc/source/luxc/lang/host/jvm/inst.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/inst.lux
@@ -11,8 +11,9 @@
     ["." product]
     ["." maybe]
     ["." error]
-    [text
-     format]
+    [number
+     ["n" nat]
+     ["i" int]]
     [collection
      ["." list ("#@." functor)]]]
    [macro
@@ -305,13 +306,13 @@
   (-> //.Label (List [Int //.Label]) Inst)
   (function (_ visitor)
     (let [keys+labels (list.sort (function (_ left right)
-                                   (i/< (product.left left) (product.left right)))
+                                   (i.< (product.left left) (product.left right)))
                                  keys+labels)
           array-size (list.size keys+labels)
           keys-array (host.array int array-size)
           labels-array (host.array org/objectweb/asm/Label array-size)
           _ (loop [idx 0]
-              (if (n/< array-size idx)
+              (if (n.< array-size idx)
                 (let [[key label] (maybe.assume (list.nth idx keys+labels))]
                   (exec
                     (host.array-write idx (host.long-to-int key) keys-array)
@@ -327,7 +328,7 @@
     (let [num-labels (list.size labels)
           labels-array (host.array org/objectweb/asm/Label num-labels)
           _ (loop [idx 0]
-              (if (n/< num-labels idx)
+              (if (n.< num-labels idx)
                 (exec (host.array-write idx
                                         (maybe.assume (list.nth idx labels))
                                         labels-array)
-- 
cgit v1.2.3