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".

---
 .../source/luxc/lang/translation/jvm/case.jvm.lux  |  4 ++--
 .../luxc/lang/translation/jvm/common.jvm.lux       | 22 +++++++++++-----------
 .../luxc/lang/translation/jvm/statement.jvm.lux    |  2 +-
 3 files changed, 14 insertions(+), 14 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux
index 28560854d..f5d288827 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/case.jvm.lux
@@ -86,9 +86,9 @@
                        ($i.long (|> value <prep>))
                        $i.LCMP
                        ($i.IFNE @else))))
-    ([#.Nat (:! Int)]
+    ([#.Nat (:coerce Int)]
      [#.Int (: Int)]
-     [#.Deg (:! Int)])
+     [#.Deg (:coerce Int)])
 
     [_ (#.Frac value)]
     (macro/wrap (|>> peekI
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))])
diff --git a/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux
index 4c52231f3..07c85e58c 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/statement.jvm.lux
@@ -87,7 +87,7 @@
                (wrap [])
 
                tags
-               (&module.declare-tags tags (macro.export? metaV) (:! Type valueV)))
+               (&module.declare-tags tags (macro.export? metaV) (:coerce Type valueV)))
              (wrap []))
          #let [_ (log! (format "DEF " (%ident def-ident)))]]
         (commonT.record-artifact (format bytecode-name ".class") bytecode)))))
-- 
cgit v1.2.3