- Re-named ":!" to ":coerce".

1 files changed, 11 insertions, 11 deletions

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))])