From a02b7bf8ff358ccfa35b03272d28537aeac723ae Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 28 Nov 2020 19:45:56 -0400
Subject: Added "private" macro to lux/debug.

---
 stdlib/source/program/aedifex/format.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/program/aedifex/format.lux')

diff --git a/stdlib/source/program/aedifex/format.lux b/stdlib/source/program/aedifex/format.lux
index 4ec8b8ae6..b5d6571be 100644
--- a/stdlib/source/program/aedifex/format.lux
+++ b/stdlib/source/program/aedifex/format.lux
@@ -1,10 +1,10 @@
 (.module:
   [lux #*
    [data
-    ["." text ("#@." equivalence)]
+    ["." text ("#\." equivalence)]
     [collection
      ["." dictionary (#+ Dictionary)]
-     ["." list ("#@." functor)]
+     ["." list ("#\." functor)]
      ["." set (#+ Set)]]]
    [macro
     ["." code]]]
@@ -56,7 +56,7 @@
 (def: aggregate
   (Format Aggregate)
   (|>> dictionary.entries
-       (list@map (function (_ [key value])
+       (list\map (function (_ [key value])
                    [(code.local-tag key) value]))
        code.record))
 
@@ -82,7 +82,7 @@
     aggregate
 
     value
-    (dictionary.put field (` [(~+ (list@map format value))]) aggregate)))
+    (dictionary.put field (` [(~+ (list\map format value))]) aggregate)))
 
 (def: (on-set field value format aggregate)
   (All [a]
@@ -97,7 +97,7 @@
     (dictionary.put field
                     (|> value
                         dictionary.entries
-                        (list@map (function (_ [key value])
+                        (list\map (function (_ [key value])
                                     [(key-format key) (value-format value)]))
                         code.record)
                     aggregate)))
@@ -126,7 +126,7 @@
 
 (def: (dependency [artifact type])
   (Format Dependency)
-  (if (text@= //artifact/type.lux-library type)
+  (if (text\= //artifact/type.lux-library type)
     (` [(~+ (..artifact' artifact))])
     (` [(~+ (..artifact' artifact))
         (~ (code.text type))])))
@@ -149,6 +149,6 @@
 (def: #export project
   (Format Project)
   (|>> dictionary.entries
-       (list@map (function (_ [key value])
+       (list\map (function (_ [key value])
                    [(code.text key) (..profile value)]))
        code.record))
-- 
cgit v1.2.3