Re-named "::" and ":::" macros to "\" and "\\", to be consistent with the convention that only macros that deal with types may start with a colon.

7 files changed, 29 insertions, 29 deletions

diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index f7ec7a315..c2df31df5 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -28,15 +28,15 @@
 (def: (targets fs path)
   (-> (file.System Promise) Path (Promise (List Path)))
   (do {! promise.monad}
-    [?root (!.use (:: fs directory) [path])]
+    [?root (!.use (\ fs directory) [path])]
     (case ?root
       (#try.Success root)
       (loop [root root]
         (do !
-          [subs (:: ! map (|>> (try.default (list)))
-                    (!.use (:: root directories) []))]
-          (:: ! map (|>> list.concat (list& (!.use (:: root scope) [])))
-              (monad.map ! recur subs))))
+          [subs (\ ! map (|>> (try.default (list)))
+                   (!.use (\ root directories) []))]
+          (\ ! map (|>> list.concat (list& (!.use (\ root scope) [])))
+             (monad.map ! recur subs))))
 
       (#try.Failure error)
       (wrap (list)))))
@@ -58,14 +58,14 @@
                        (get@ #///.sources)
                        set.to-list
                        (monad.map ! (..targets fs))
-                       (:: ! map list.concat))]
+                       (\ ! map list.concat))]
           (do {! ///action.monad}
-            [_ (monad.map ! (:: watcher start watch.all) targets)
+            [_ (monad.map ! (\ watcher start watch.all) targets)
              _ <call>]
             (loop [_ []]
               (do !
                 [_ (..pause [])
-                 events (:: watcher poll [])
+                 events (\ watcher poll [])
                  _ (case events
                      (#.Cons _)
                      (do !
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index 30206095e..85210fd36 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -138,10 +138,10 @@
                                                         (#JS artifact) [(///runtime.node (///local.path fs artifact))
                                                                         "program.js"])]
                                 [(format compiler " build") output])
-             / (:: fs separator)
+             / (\ fs separator)
              cache-directory (format working-directory / target)]
        #let [_ (log! "[BUILD STARTED]")]
-       process (!.use (:: shell execute)
+       process (!.use (\ shell execute)
                       [environment
                        working-directory
                        command
@@ -149,7 +149,7 @@
                                           (..plural "--source" (set.to-list (get@ #///.sources profile)))
                                           (..singular "--target" cache-directory)
                                           (..singular "--module" program)))])
-       exit (!.use (:: process await) [])
+       exit (!.use (\ process await) [])
        #let [_ (log! (if (i.= shell.normal exit)
                        "[BUILD ENDED]"
                        "[BUILD FAILED]"))]]
diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index f4f5e1f9e..618125a89 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -19,9 +19,9 @@
   (-> (Directory Promise) (Promise (Try Any)))
   (do {! ///action.monad}
     [nodes (: (Promise (Try (List (File Promise))))
-              (!.use (:: root files) []))
+              (!.use (\ root files) []))
      _ (monad.map ! (function (_ node)
-                      (!.use (:: node delete) []))
+                      (!.use (\ node delete) []))
                   nodes)]
     (wrap [])))
 
@@ -31,17 +31,17 @@
     (#.Some target)
     (do {! ///action.monad}
       [target (: (Promise (Try (Directory Promise)))
-                 (!.use (:: fs directory) target))
+                 (!.use (\ fs directory) target))
        _ (loop [root target]
            (do !
              [_ (..clean-files! root)
               subs (: (Promise (Try (List (Directory Promise))))
-                      (!.use (:: root directories) []))
+                      (!.use (\ root directories) []))
               _ (monad.map ! recur subs)]
-             (!.use (:: root discard) [])))]
+             (!.use (\ root discard) [])))]
       (exec (log! "No 'target' defined for clean-up.")
         (wrap [])))
     
     #.None
     (exec (log! "No 'target' defined for clean-up.")
-      (:: ///action.monad wrap []))))
+      (\ ///action.monad wrap []))))
diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux
index 839bc7906..1f5ccc441 100644
--- a/stdlib/source/program/aedifex/command/deploy.lux
+++ b/stdlib/source/program/aedifex/command/deploy.lux
@@ -33,15 +33,15 @@
 (def: #export (do! repository fs identity artifact profile)
   (-> (Repository Promise) (file.System Promise) Identity Artifact (Command Any))
   (let [deploy! (: (-> Extension Binary (Action Any))
-                   (:: repository upload identity artifact))]
+                   (\ repository upload identity artifact))]
     (do {! ///action.monad}
       [library (|> profile
                    (get@ #/.sources)
                    set.to-list
                    (export.library fs)
-                   (:: ! map (binary.run tar.writer)))
+                   (\ ! map (binary.run tar.writer)))
        pom (promise\wrap (///pom.write profile))
-       _ (deploy! ///artifact/extension.pom (|> pom (:: xml.codec encode) encoding.to-utf8))
+       _ (deploy! ///artifact/extension.pom (|> pom (\ xml.codec encode) encoding.to-utf8))
        _ (deploy! ///artifact/extension.lux-library library)
        _ (deploy! ///artifact/extension.sha-1 (///hash.data (///hash.sha-1 library)))
        _ (deploy! ///artifact/extension.md5 (///hash.data (///hash.md5 library)))
diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux
index 818283cc5..b152bc66c 100644
--- a/stdlib/source/program/aedifex/command/install.lux
+++ b/stdlib/source/program/aedifex/command/install.lux
@@ -39,7 +39,7 @@
   (do (try.with promise.monad)
     [file (: (Promise (Try (File Promise)))
              (file.get-file promise.monad system file))]
-    (!.use (:: file over-write) [content])))
+    (!.use (\ file over-write) [content])))
 
 (def: #export (do! system profile)
   (-> (file.System Promise) (Command Any))
@@ -49,14 +49,14 @@
       [package (export.library system (set.to-list (get@ #/.sources profile)))
        repository (: (Promise (Try Path))
                      (file.make-directories promise.monad system (///local.path system identity)))
-       #let [artifact-name (format repository (:: system separator) (///artifact.identity identity))]
+       #let [artifact-name (format repository (\ system separator) (///artifact.identity identity))]
        _ (..save! system (binary.run tar.writer package)
                   (format artifact-name ///artifact/extension.lux-library))
-       pom (:: promise.monad wrap (///pom.write profile))
-       _ (..save! system (|> pom (:: xml.codec encode) encoding.to-utf8)
+       pom (\ promise.monad wrap (///pom.write profile))
+       _ (..save! system (|> pom (\ xml.codec encode) encoding.to-utf8)
                   (format artifact-name ///artifact/extension.pom))
        #let [_ (log! "Successfully installed locally!")]]
       (wrap []))
 
     _
-    (:: promise.monad wrap (exception.throw /.no-identity []))))
+    (\ promise.monad wrap (exception.throw /.no-identity []))))
diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux
index 695a7839f..28bd23921 100644
--- a/stdlib/source/program/aedifex/command/pom.lux
+++ b/stdlib/source/program/aedifex/command/pom.lux
@@ -28,8 +28,8 @@
      file (: (Promise (Try (File Promise)))
              (file.get-file promise.monad fs ///pom.file))
      outcome (|> pom
-                 (:: xml.codec encode)
+                 (\ xml.codec encode)
                  encoding.to-utf8
-                 (!.use (:: file over-write)))
+                 (!.use (\ file over-write)))
      #let [_ (log! "Successfully wrote POM file!")]]
     (wrap ///pom.file)))
diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux
index f4da76ac4..5c205b7b8 100644
--- a/stdlib/source/program/aedifex/command/test.lux
+++ b/stdlib/source/program/aedifex/command/test.lux
@@ -31,14 +31,14 @@
     [[compiler program] (//build.do! environment fs shell resolution profile)
      working-directory (promise\wrap (//build.working-directory environment))
      #let [_ (log! "[TEST STARTED]")]
-     process (!.use (:: shell execute)
+     process (!.use (\ shell execute)
                     [environment
                      working-directory
                      (case compiler
                        (#//build.JVM artifact) (///runtime.java program)
                        (#//build.JS artifact) (///runtime.node program))
                      (list)])
-     exit (!.use (:: process await) [])
+     exit (!.use (\ process await) [])
      #let [_ (log! (if (i.= shell.normal exit)
                      "[TEST ENDED]"
                      "[TEST FAILED]"))]]