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/translation/common.jvm.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

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)))))
-- 
cgit v1.2.3