From 889139602b77e4387a6e8bfbedacc2a08703e976 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 27 Nov 2020 00:07:51 -0400
Subject: Re-named lux/data/format/context to lux/control/parser/environment.

---
 stdlib/source/test/lux/locale/territory.lux | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'stdlib/source/test/lux/locale/territory.lux')

diff --git a/stdlib/source/test/lux/locale/territory.lux b/stdlib/source/test/lux/locale/territory.lux
index 43d4401ec..12fa402af 100644
--- a/stdlib/source/test/lux/locale/territory.lux
+++ b/stdlib/source/test/lux/locale/territory.lux
@@ -10,7 +10,7 @@
      ["n" nat]]
     [collection
      ["." set (#+ Set)]
-     ["." list ("#@." functor fold)]]]
+     ["." list ("#\." functor fold)]]]
    [macro
     ["." template]]
    [math
@@ -33,10 +33,10 @@
      (let [count (template.count <territories>)
            territories (`` (list (~~ (template.splice <territories>))))]
        {#count count
-        #names (|> territories (list@map /.name) (set.from-list text.hash))
-        #shorts (|> territories (list@map /.short-code) (set.from-list text.hash))
-        #longs (|> territories (list@map /.long-code) (set.from-list text.hash))
-        #numbers (|> territories (list@map /.numeric-code) (set.from-list n.hash))
+        #names (|> territories (list\map /.name) (set.from-list text.hash))
+        #shorts (|> territories (list\map /.short-code) (set.from-list text.hash))
+        #longs (|> territories (list\map /.long-code) (set.from-list text.hash))
+        #numbers (|> territories (list\map /.numeric-code) (set.from-list n.hash))
         #territories (|> territories (set.from-list /.hash))
         #test (_.cover <territories>
                        true)}))]
@@ -138,7 +138,7 @@
                (Hash a)
                (List Bundle)
                [Nat (Set a)]))
-  (list@fold (function (_ bundle [count set])
+  (list\fold (function (_ bundle [count set])
                [(n.+ count (get@ #count bundle))
                 (set.union set (lens bundle))])
              [0 (set.new hash)]
@@ -148,8 +148,8 @@
   Test
   (|> ..territories
       list.reverse
-      (list@map (get@ #test))
-      (list@fold _.and
+      (list\map (get@ #test))
+      (list\fold _.and
                  (`` ($_ _.and
                          (~~ (template [<lens> <tag> <hash>]
                                [(let [[count set] (..aggregate (get@ <tag>) <hash> ..territories)]
-- 
cgit v1.2.3