From 17629d66062b88b040a2397032f6c08361a5f3a7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 12 Aug 2021 03:12:42 -0400
Subject: Improved binding syntax for "syntax:".

---
 stdlib/source/test/aedifex/command/build.lux         | 2 +-
 stdlib/source/test/aedifex/command/deps.lux          | 2 +-
 stdlib/source/test/aedifex/dependency/deployment.lux | 4 ++--
 stdlib/source/test/aedifex/dependency/resolution.lux | 2 +-
 stdlib/source/test/aedifex/input.lux                 | 4 ++--
 stdlib/source/test/aedifex/parser.lux                | 2 +-
 stdlib/source/test/aedifex/repository.lux            | 4 ++--
 7 files changed, 10 insertions(+), 10 deletions(-)

(limited to 'stdlib/source/test/aedifex')

diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index b5e796c2d..81f331e41 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -134,7 +134,7 @@
      [_ package] $///package.random]
     (in [dependency
          (|> ///dependency/resolution.empty
-             (dictionary.put dependency package))])))
+             (dictionary.has dependency package))])))
 
 (def: .public test
   Test
diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux
index 0698899da..c4311fc2c 100644
--- a/stdlib/source/test/aedifex/command/deps.lux
+++ b/stdlib/source/test/aedifex/command/deps.lux
@@ -100,7 +100,7 @@
                          [.let [console (@version.echo "")
                                 local (///repository/local.repository program fs)]
                           pre (|> ///dependency/resolution.empty
-                                  (dictionary.put dependee dependee_package)
+                                  (dictionary.has dependee dependee_package)
                                   (///dependency/deployment.all local))
                           post (|> (\ ///.monoid identity)
                                    (set@ #///.dependencies (set.of_list ///dependency.hash (list dependee depender)))
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index 7352de63a..ccccc47cd 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -69,7 +69,7 @@
        [_ (: (IO Any)
              (case [method input]
                [#@http.Put (#.Some input)]
-               (atom.update! (dictionary.put url input) cache)
+               (atom.update! (dictionary.has url input) cache)
                
                _
                (in [])))]
@@ -172,7 +172,7 @@
                            (random.set hash num_bundles)
                            (\ ! map set.list))
                .let [resolution (list\fold (function (_ [dependency expected_artifact package] resolution)
-                                             (dictionary.put dependency package resolution))
+                                             (dictionary.has dependency package resolution))
                                            resolution.empty
                                            bundles)
                      cache (: Cache
diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index 4bef34eff..da101dfa2 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -53,7 +53,7 @@
   (do {! random.monad}
     [artifact $///artifact.random
      [_ package] $///package.random]
-    (in (dictionary.put {#///dependency.artifact artifact
+    (in (dictionary.has {#///dependency.artifact artifact
                          #///dependency.type ///artifact/type.lux_library}
                         package
                         /.empty))))
diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux
index 168d378d4..086551be0 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -34,12 +34,12 @@
 (def: (with_default_source sources)
   (-> (Set //.Source) (Set //.Source))
   (if (set.empty? sources)
-    (set.add //.default_source sources)
+    (set.has //.default_source sources)
     sources))
 
 (def: with_default_repository
   (-> (Set Address) (Set Address))
-  (set.add //.default_repository))
+  (set.has //.default_repository))
 
 (def: .public test
   Test
diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux
index 354352d6a..152123d55 100644
--- a/stdlib/source/test/aedifex/parser.lux
+++ b/stdlib/source/test/aedifex/parser.lux
@@ -64,7 +64,7 @@
 
 (def: with_default_repository
   (-> //.Profile //.Profile)
-  (update@ #//.repositories (set.add //.default_repository)))
+  (update@ #//.repositories (set.has //.default_repository)))
 
 (def: single_profile
   Test
diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux
index 33f719efc..ce7647c9e 100644
--- a/stdlib/source/test/aedifex/repository.lux
+++ b/stdlib/source/test/aedifex/repository.lux
@@ -82,7 +82,7 @@
   (def: (on_upload uri content state)
     (if (dictionary.key? state uri)
       (exception.except ..cannot_upload [uri])
-      (#try.Success (dictionary.put uri content state)))))
+      (#try.Success (dictionary.has uri content state)))))
 
 (def: .public test
   Test
@@ -95,7 +95,7 @@
                             (..artifact ..invalid_version)
                             (/.mock ..mock
                                     (|> ..empty
-                                        (dictionary.put (remote.uri ..invalid_version
+                                        (dictionary.has (remote.uri ..invalid_version
                                                                     (..artifact ..invalid_version)
                                                                     //artifact/extension.lux_library)
                                                         (binary.empty 0)))))))
-- 
cgit v1.2.3