Made program: specify its bindings the same way as syntax:.

8 files changed, 13 insertions, 13 deletions

diff --git a/stdlib/source/test/aedifex/artifact/time/date.lux b/stdlib/source/test/aedifex/artifact/time/date.lux
index 212aa01dd..c67ade3ec 100644
--- a/stdlib/source/test/aedifex/artifact/time/date.lux
+++ b/stdlib/source/test/aedifex/artifact/time/date.lux
@@ -60,7 +60,7 @@
             (_.cover [/.year_is_out_of_range]
                      (case (/.date candidate)
                        (#try.Success date)
-                       (is? candidate (/.value date))
+                       (same? candidate (/.value date))
                        
                        (#try.Failure error)
                        (exception.match? /.year_is_out_of_range error)))
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 934810e0c..41d0f080f 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -111,7 +111,7 @@
                                                           (shell.async ($build.good_shell []))
                                                           resolution)
                                                          (\ ! map (|>> (case> (#try.Failure error)
-                                                                              (is? end_signal error)
+                                                                              (same? end_signal error)
 
                                                                               (#try.Success _)
                                                                               false))))
diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux
index 0400cbc58..2bdf72078 100644
--- a/stdlib/source/test/aedifex/command/version.lux
+++ b/stdlib/source/test/aedifex/command/version.lux
@@ -45,7 +45,7 @@
     (if open?
       (try.of_maybe
        (do maybe.monad
-         [[output state] (text.split_with text.new_line state)]
+         [[output state] (text.split_by text.new_line state)]
          (in [[open? state] output])))
       (exception.except ..console_is_closed! [])))
   (def: (on_write input [open? state])
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index ccccc47cd..9ddabee88 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -105,7 +105,7 @@
 
         correct_library_upload!
         (and (|> cache
-                 (dictionary.get library_url)
+                 (dictionary.value library_url)
                  (maybe\map (binary\= expected_library))
                  (maybe.else false))
              (dictionary.key? cache (format library_url artifact/extension.sha-1))
@@ -113,7 +113,7 @@
 
         correct_pom_upload!
         (and (|> cache
-                 (dictionary.get pom_url)
+                 (dictionary.value pom_url)
                  (maybe\map (binary\= expected_pom))
                  (maybe.else false))
              (dictionary.key? cache (format pom_url artifact/extension.sha-1))
diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux
index e05dc712f..e05c1d753 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -80,7 +80,7 @@
                               _ false)
                             (let [expected_sha1 (//hash.sha-1 expected_library)
                                   expected_md5 (//hash.md5 expected_library)]
-                              (and (is? expected_library actual_library)
+                              (and (same? expected_library actual_library)
                                    (case library_status
                                      (#//status.Verified actual_sha1 expected_md5)
                                      (and (//hash\= expected_sha1 actual_sha1)
@@ -90,7 +90,7 @@
                                      false)))
                             (let [expected_sha1 (//hash.sha-1 binary_pom)
                                   expected_md5 (//hash.md5 binary_pom)]
-                              (and (is? expected_pom actual_pom)
+                              (and (same? expected_pom actual_pom)
                                    (|> (do try.monad
                                          [xml_pom (\ utf8.codec decode binary_pom)
                                           decoded_pom (\ xml.codec decode xml_pom)]
diff --git a/stdlib/source/test/aedifex/profile.lux b/stdlib/source/test/aedifex/profile.lux
index 857aaf6e1..b1ec22e6c 100644
--- a/stdlib/source/test/aedifex/profile.lux
+++ b/stdlib/source/test/aedifex/profile.lux
@@ -155,9 +155,9 @@
                      (_.cover [/.default_compiler]
                               (|> (\ /.monoid identity)
                                   (get@ #/.compiler)
-                                  (is? /.default_compiler)))
+                                  (same? /.default_compiler)))
                      (_.cover [/.default_target]
                               (|> (\ /.monoid identity)
                                   (get@ #/.target)
-                                  (is? /.default_target)))
+                                  (same? /.default_target)))
                      )))))
diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux
index ce7647c9e..8e8b4c945 100644
--- a/stdlib/source/test/aedifex/repository.lux
+++ b/stdlib/source/test/aedifex/repository.lux
@@ -71,7 +71,7 @@
   (def: the_description
     "@")
   (def: (on_download uri state)
-    (case (dictionary.get uri state)
+    (case (dictionary.value uri state)
       (#.Some content)
       (case (binary.size content)
         0 (exception.except ..not_found [uri])
diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index 8cca4aee8..44f913863 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -47,8 +47,8 @@
        (<| io.io
            #try.Success
            (if (|> headers
-                   (dictionary.get "User-Agent")
-                   (maybe\map (is? /.user_agent))
+                   (dictionary.value "User-Agent")
+                   (maybe\map (same? /.user_agent))
                    (maybe.else false))
              (case [method input]
                [#@http.Get #.None]
@@ -58,7 +58,7 @@
                
                [#@http.Put (#.Some input)]
                (if (|> headers
-                       (dictionary.get "Authorization")
+                       (dictionary.value "Authorization")
                        (maybe\map (text\= (//identity.basic_auth user password)))
                        (maybe.else false))
                  [http/status.created