From bcd3d9ee8f6797f758a2abea98d5cb6a74cc7df0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 15 Jun 2018 00:11:33 -0400
Subject: - WIP: Adjustments to new-luxc based on recent changes to stdlib.

---
 new-luxc/source/luxc/lang/host.jvm.lux | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/host.jvm.lux b/new-luxc/source/luxc/lang/host.jvm.lux
index 01afaeccc..ba617aa42 100644
--- a/new-luxc/source/luxc/lang/host.jvm.lux
+++ b/new-luxc/source/luxc/lang/host.jvm.lux
@@ -11,10 +11,11 @@
                    [array]))
        [macro]
        [host #+ do-to object]
-       [io])
-  (luxc ["&" lang]
-        (lang [".L" variable #+ Register]
-              (translation (jvm [".T" common])))))
+       [io]
+       ["//" lang]
+       (lang ["//." reference #+ Register]))
+  (luxc [lang]
+        (lang (translation (jvm [".T" common])))))
 
 (host.import org/objectweb/asm/Label)
 
@@ -57,7 +58,7 @@
                    (array.from-list (list (:! Object class-name)
                                           (:! Object byte-code)
                                           (:! Object (host.long-to-int 0))
-                                          (:! Object (host.long-to-int (nat-to-int (host.array-length byte-code))))))]
+                                          (:! Object (host.long-to-int (.int (host.array-length byte-code))))))]
                   ClassLoader::defineClass))
 
 (def: (fetch-byte-code class-name store)
@@ -122,14 +123,14 @@
                    anchor])
 
       #.None
-      ((&.throw No-Anchor "") compiler))))
+      ((//.throw No-Anchor "") compiler))))
 
 (def: #export (with-context name expr)
   (All [a] (-> Text (Meta a) (Meta a)))
   (.function (_ compiler)
     (let [old (:! commonT.Host (get@ #.host compiler))]
       (case (expr (set@ #.host
-                        (:! Nothing (set@ #commonT.context [(&.normalize-name name) +0] old))
+                        (:! Nothing (set@ #commonT.context [(lang.normalize-name name) +0] old))
                         compiler))
         (#e.Success [compiler' output])
         (#e.Success [(update@ #.host
@@ -147,14 +148,14 @@
   (.function (_ compiler)
     (let [old (:! commonT.Host (get@ #.host compiler))
           [old-name old-sub] (get@ #commonT.context old)
-          new-name (format old-name "$" (%i (nat-to-int old-sub)))]
+          new-name (format old-name "$" (%i (.int old-sub)))]
       (case (expr (set@ #.host
                         (:! Nothing (set@ #commonT.context [new-name +0] old))
                         compiler))
         (#e.Success [compiler' output])
         (#e.Success [(update@ #.host
                               (|>> (:! commonT.Host)
-                                   (set@ #commonT.context [old-name (n/inc old-sub)])
+                                   (set@ #commonT.context [old-name (inc old-sub)])
                                    (:! Nothing))
                               compiler')
                      [new-name output]])
-- 
cgit v1.2.3