From 3eabc421e559e7e2f903e06eb6b47a2ee0cd25b9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 20 Nov 2017 21:46:49 -0400
Subject: - Added parallel compilation. - Added aliasing. - Several bug fixes.
 - Some minor refactoring.

---
 new-luxc/source/luxc/lang/host.jvm.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 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 726bb5bbc..9f8fcd069 100644
--- a/new-luxc/source/luxc/lang/host.jvm.lux
+++ b/new-luxc/source/luxc/lang/host.jvm.lux
@@ -3,7 +3,7 @@
   (lux (control [monad #+ do]
                 ["ex" exception #+ exception:]
                 pipe)
-       (concurrency ["A" atom])
+       (concurrency [atom #+ Atom atom])
        (data ["e" error]
              [text]
              text/format
@@ -62,11 +62,11 @@
 
 (def: (fetch-byte-code class-name store)
   (-> Text commonT;Class-Store (Maybe commonT;Bytecode))
-  (|> store A;get io;run (dict;get class-name)))
+  (|> store atom;read io;run (dict;get class-name)))
 
 (def: (memory-class-loader store)
   (-> commonT;Class-Store ClassLoader)
-  (object ClassLoader []
+  (object [] ClassLoader []
     []
     (ClassLoader (findClass [class-name String]) Class
                  (case (fetch-byte-code class-name store)
@@ -85,7 +85,7 @@
 (def: #export init-host
   (io;IO commonT;Host)
   (io;io (let [store (: commonT;Class-Store
-                        (A;atom (dict;new text;Hash<Text>)))]
+                        (atom (dict;new text;Hash<Text>)))]
            {#commonT;loader (memory-class-loader store)
             #commonT;store store
             #commonT;artifacts (dict;new text;Hash<Text>)
-- 
cgit v1.2.3