From 34e310622bdeb1d0588c0664c0e78cbaa84f837c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 2 Dec 2020 06:42:20 -0400
Subject: Re-named "::" and ":::" macros to "\" and "\\", to be consistent with
 the convention that only macros that deal with types may start with a colon.

---
 stdlib/source/program/compositor/export.lux | 10 +++++-----
 stdlib/source/program/compositor/import.lux |  4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/program/compositor')

diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux
index b1e525098..bc2ced5a3 100644
--- a/stdlib/source/program/compositor/export.lux
+++ b/stdlib/source/program/compositor/export.lux
@@ -49,7 +49,7 @@
                    (function (_ [path source-code])
                      (do try.monad
                        [path (|> path
-                                 (text.replace-all (:: system separator) .module-separator)
+                                 (text.replace-all (\ system separator) .module-separator)
                                  tar.path)
                         source-code (tar.content source-code)]
                        (wrap (#tar.Normal [path
@@ -57,8 +57,8 @@
                                            tar.none
                                            ..no-ownership
                                            source-code])))))
-        (:: try.monad map row.from-list)
-        (:: promise.monad wrap))))
+        (\ try.monad map row.from-list)
+        (\ promise.monad wrap))))
 
 (def: #export (export system [sources target])
   (-> (file.System Promise) Export (Promise (Try Any)))
@@ -66,7 +66,7 @@
     [tar (..library system sources)
      package (: (Promise (Try (file.File Promise)))
                 (file.get-file promise.monad system
-                               (format target (:: system separator) ..file)))]
+                               (format target (\ system separator) ..file)))]
     (|> tar
         (binary.run tar.writer)
-        (!.use (:: package over-write)))))
+        (!.use (\ package over-write)))))
diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux
index 0f2d00905..318c3705c 100644
--- a/stdlib/source/program/compositor/import.lux
+++ b/stdlib/source/program/compositor/import.lux
@@ -36,8 +36,8 @@
   (-> (file.System Promise) Library Import (Action Import))
   (do (try.with promise.monad)
     [library (: (Action (File Promise))
-                (!.use (:: system file) [library]))
-     binary (!.use (:: library content) [])]
+                (!.use (\ system file) [library]))
+     binary (!.use (\ library content) [])]
     (promise\wrap
      (do {! try.monad}
        [tar (<b>.run tar.parser binary)]
-- 
cgit v1.2.3