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

---
 new-luxc/source/luxc/lang/translation.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/new-luxc/source/luxc/lang/translation.lux b/new-luxc/source/luxc/lang/translation.lux
index 0ed495c31..0ed65378d 100644
--- a/new-luxc/source/luxc/lang/translation.lux
+++ b/new-luxc/source/luxc/lang/translation.lux
@@ -64,7 +64,7 @@
      syntheses extensionL.all-syntheses
      annsI (expressionT.translate (expressionS.synthesize syntheses annsA))
      annsV (evalT.eval annsI)]
-    (wrap [annsI (:! Code annsV)])))
+    (wrap [annsI (:coerce Code annsV)])))
 
 (def: (switch-compiler new-compiler)
   (-> Lux (Meta Aliases))
@@ -107,7 +107,7 @@
                                    (&.throw Invalid-Macro (%code code)))
        expansion (: (Meta (List Code))
                     (function (_ compiler)
-                      (case (macroL.expand (:! Macro _macroV) argsC+ compiler)
+                      (case (macroL.expand (:coerce Macro _macroV) argsC+ compiler)
                         (#e.Error error)
                         ((&.throw Macro-Expansion-Failed error) compiler)
 
@@ -167,7 +167,7 @@
 
                    (def: text-to-blob
                      (-> Text Blob)
-                     (|>> (:! String)
+                     (|>> (:coerce String)
                           (String::getBytes ["UTF-8"])
                           e.assume)))})
 
-- 
cgit v1.2.3