From d3f5e1f4baa667bc2eb72edd542cf5d8cd3924ce Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 3 Jul 2018 18:40:16 -0400
Subject: - Re-named ":!" to ":coerce".

---
 .../luxc/lang/translation/jvm/common.jvm.lux       | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux
index b678677ce..2f35bad7c 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux
@@ -65,17 +65,17 @@
   (All [a] (-> (Meta a) (Meta [Artifacts a])))
   (function (_ compiler)
     (case (action (update@ #.host
-                           (|>> (:! Host)
+                           (|>> (:coerce Host)
                                 (set@ #artifacts (dict.new text.Hash<Text>))
-                                (:! Nothing))
+                                (:coerce Nothing))
                            compiler))
       (#e.Success [compiler' output])
       (#e.Success [(update@ #.host
-                            (|>> (:! Host)
-                                 (set@ #artifacts (|> (get@ #.host compiler) (:! Host) (get@ #artifacts)))
-                                 (:! Nothing))
+                            (|>> (:coerce Host)
+                                 (set@ #artifacts (|> (get@ #.host compiler) (:coerce Host) (get@ #artifacts)))
+                                 (:coerce Nothing))
                             compiler')
-                   [(|> compiler' (get@ #.host) (:! Host) (get@ #artifacts))
+                   [(|> compiler' (get@ #.host) (:coerce Host) (get@ #artifacts))
                     output]])
       
       (#e.Error error)
@@ -84,12 +84,12 @@
 (def: #export (record-artifact name content)
   (-> Text Blob (Meta Any))
   (function (_ compiler)
-    (if (|> compiler (get@ #.host) (:! Host) (get@ #artifacts) (dict.contains? name))
+    (if (|> compiler (get@ #.host) (:coerce Host) (get@ #artifacts) (dict.contains? name))
       (ex.throw Cannot-Overwrite-Artifact name)
       (#e.Success [(update@ #.host
-                            (|>> (:! Host)
+                            (|>> (:coerce Host)
                                  (update@ #artifacts (dict.put name content))
-                                 (:! Nothing))
+                                 (:coerce Nothing))
                             compiler)
                    []]))))
 
@@ -97,7 +97,7 @@
   (-> Text Bytecode (Meta Any))
   (function (_ compiler)
     (let [store (|> (get@ #.host compiler)
-                    (:! Host)
+                    (:coerce Host)
                     (get@ #store))]
       (if (dict.contains? name (|> store atom.read io.run))
         (ex.throw Class-Already-Stored name)
@@ -107,7 +107,7 @@
 (def: #export (load-class name)
   (-> Text (Meta (Class Object)))
   (function (_ compiler)
-    (let [host (:! Host (get@ #.host compiler))
+    (let [host (:coerce Host (get@ #.host compiler))
           store (|> host (get@ #store) atom.read io.run)]
       (if (dict.contains? name store)
         (#e.Success [compiler (ClassLoader::loadClass [name] (get@ #loader host))])
-- 
cgit v1.2.3