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

---
 stdlib/source/lux.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/lux.lux')

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index 72e22a485..55499d6cc 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -2859,16 +2859,16 @@
            _
            (fail "Wrong syntax for :")}))
 
-(macro:' #export (:! tokens)
+(macro:' #export (:coerce tokens)
          (list [(tag$ ["lux" "doc"])
                 (text$ "## The type-coercion macro.
-                        (:! Dinosaur (list 1 2 3))")])
+                        (:coerce Dinosaur (list 1 2 3))")])
          ("lux case" tokens
           {(#Cons type (#Cons value #Nil))
            (return (list (` ("lux coerce" (type (~ type)) (~ value)))))
 
            _
-           (fail "Wrong syntax for :!")}))
+           (fail "Wrong syntax for :coerce")}))
 
 (def:''' (empty? xs)
          #Nil
@@ -5329,7 +5329,7 @@
 (do-template [<name> <to>]
   [(def: #export <name>
      (-> (I64 Any) <to>)
-     (|>> (:! <to>)))]
+     (|>> (:coerce <to>)))]
 
   [i64 I64]
   [nat Nat]
@@ -5700,7 +5700,7 @@
     (case (flatten-alias type)
       (^template [<name> <type> <wrapper>]
         (#Named ["lux" <name>] _)
-        (wrap (<wrapper> (:! <type> value))))
+        (wrap (<wrapper> (:coerce <type> value))))
       (["Bool" Bool bool$]
        ["Nat"  Nat  nat$]
        ["Int"  Int  int$]
-- 
cgit v1.2.3