- Added parallel compilation.

- Added aliasing.
- Several bug fixes.
- Some minor refactoring.

1 files changed, 5 insertions, 5 deletions

diff --git a/new-luxc/source/luxc/lang/translation/common.jvm.lux b/new-luxc/source/luxc/lang/translation/common.jvm.lux
index 49e135709..7a16a749a 100644
--- a/new-luxc/source/luxc/lang/translation/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common.jvm.lux
@@ -2,7 +2,7 @@
   [lux #- function]
   (lux (control ["ex" exception #+ exception:])
        [io]
-       (concurrency ["A" atom])
+       (concurrency [atom #+ Atom atom])
        (data ["e" error]
              [text]
              text/format
@@ -30,7 +30,7 @@
 
 (type: #export Bytecode Blob)
 
-(type: #export Class-Store (A;Atom (Dict Text Bytecode)))
+(type: #export Class-Store (Atom (Dict Text Bytecode)))
 
 (type: #export Artifacts (Dict File Blob))
 
@@ -84,16 +84,16 @@
     (let [store (|> (get@ #;host compiler)
                     (:! Host)
                     (get@ #store))]
-      (if (dict;contains? name (|> store A;get io;run))
+      (if (dict;contains? name (|> store atom;read io;run))
         (ex;throw Class-Already-Stored name)
-        (#e;Success [compiler (io;run (A;update (dict;put name byte-code) store))])
+        (#e;Success [compiler (io;run (atom;update (dict;put name byte-code) store))])
         ))))
 
 (def: #export (load-class name)
   (-> Text (Meta (Class Object)))
   (;function [compiler]
     (let [host (:! Host (get@ #;host compiler))
-          store (|> host (get@ #store) A;get io;run)]
+          store (|> host (get@ #store) atom;read io;run)]
       (if (dict;contains? name store)
         (#e;Success [compiler (ClassLoader.loadClass [name] (get@ #loader host))])
         (ex;throw Unknown-Class name)))))