More renamings.

28 files changed, 46 insertions, 46 deletions

diff --git a/stdlib/source/test/aedifex/artifact/snapshot.lux b/stdlib/source/test/aedifex/artifact/snapshot.lux
index 931fefd17..d8ececcd4 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot.lux
@@ -41,7 +41,7 @@
                                 list
                                 (<xml>.run /.parser)
                                 (try\map (\ /.equivalence = expected))
-                                (try.default false))))
+                                (try.else false))))
 
                  $/build.test
                  $/stamp.test
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/build.lux b/stdlib/source/test/aedifex/artifact/snapshot/build.lux
index 8b0be9f1d..55bdc0a42 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/build.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/build.lux
@@ -35,5 +35,5 @@
                                 list
                                 (<xml>.run /.parser)
                                 (try\map (\ /.equivalence = expected))
-                                (try.default false))))
+                                (try.else false))))
                  ))))
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux
index 00be1c227..deea0e954 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/stamp.lux
@@ -42,5 +42,5 @@
                          /.format
                          (<xml>.run /.parser)
                          (try\map (\ /.equivalence = expected))
-                         (try.default false))))
+                         (try.else false))))
           )))
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/time.lux b/stdlib/source/test/aedifex/artifact/snapshot/time.lux
index 820214cba..05e575e64 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/time.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/time.lux
@@ -37,6 +37,6 @@
                              /.format
                              (<text>.run /.parser)
                              (try\map (\ /.equivalence = expected))
-                             (try.default false)))
+                             (try.else false)))
                 ))
           )))
diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version.lux b/stdlib/source/test/aedifex/artifact/snapshot/version.lux
index a4a090246..c63dc4f51 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/version.lux
@@ -44,7 +44,7 @@
                          list
                          (<xml>.run /.parser)
                          (try\map (\ /.equivalence = expected))
-                         (try.default false))))
+                         (try.else false))))
 
           /value.test
           )))
diff --git a/stdlib/source/test/aedifex/artifact/time.lux b/stdlib/source/test/aedifex/artifact/time.lux
index 9ac9be6ae..982d2b0f7 100644
--- a/stdlib/source/test/aedifex/artifact/time.lux
+++ b/stdlib/source/test/aedifex/artifact/time.lux
@@ -44,7 +44,7 @@
                          /.format
                          (<text>.run /.parser)
                          (try\map (\ /.equivalence = expected))
-                         (try.default false))))
+                         (try.else false))))
           (do random.monad
             [expected ..random]
             (_.cover [/.instant /.of_instant]
@@ -52,7 +52,7 @@
                          /.instant
                          /.of_instant
                          (try\map (\ /.equivalence = expected))
-                         (try.default false))))
+                         (try.else false))))
           (_.cover [/.epoch]
                    (instant\= instant.epoch (/.instant /.epoch)))
 
diff --git a/stdlib/source/test/aedifex/artifact/time/date.lux b/stdlib/source/test/aedifex/artifact/time/date.lux
index 4d44b5358..5dd7156fc 100644
--- a/stdlib/source/test/aedifex/artifact/time/date.lux
+++ b/stdlib/source/test/aedifex/artifact/time/date.lux
@@ -50,13 +50,13 @@
                          /.format
                          (<text>.run /.parser)
                          (try\map (\ /.equivalence = expected))
-                         (try.default false)))
+                         (try.else false)))
             (_.cover [/.value /.date]
                      (|> expected
                          /.value
                          /.date
                          (try\map (\ /.equivalence = expected))
-                         (try.default false)))
+                         (try.else false)))
             (_.cover [/.year_is_out_of_range]
                      (case (/.date candidate)
                        (#try.Success date)
diff --git a/stdlib/source/test/aedifex/artifact/time/time.lux b/stdlib/source/test/aedifex/artifact/time/time.lux
index dd4b63904..904e34aec 100644
--- a/stdlib/source/test/aedifex/artifact/time/time.lux
+++ b/stdlib/source/test/aedifex/artifact/time/time.lux
@@ -34,5 +34,5 @@
                          /.format
                          (<text>.run /.parser)
                          (try\map (\ time.equivalence = expected))
-                         (try.default false))))
+                         (try.else false))))
           )))
diff --git a/stdlib/source/test/aedifex/artifact/versioning.lux b/stdlib/source/test/aedifex/artifact/versioning.lux
index a16794e98..79d063123 100644
--- a/stdlib/source/test/aedifex/artifact/versioning.lux
+++ b/stdlib/source/test/aedifex/artifact/versioning.lux
@@ -43,12 +43,12 @@
                          list
                          (<xml>.run /.parser)
                          (try\map (\ /.equivalence = expected))
-                         (try.default false))))
+                         (try.else false))))
           (_.cover [/.init]
                    (|> /.init
                        /.format
                        list
                        (<xml>.run /.parser)
                        (try\map (\ /.equivalence = /.init))
-                       (try.default false)))
+                       (try.else false)))
           )))
diff --git a/stdlib/source/test/aedifex/cache.lux b/stdlib/source/test/aedifex/cache.lux
index 2a2d3d2e4..4b7fcc885 100644
--- a/stdlib/source/test/aedifex/cache.lux
+++ b/stdlib/source/test/aedifex/cache.lux
@@ -83,7 +83,7 @@
     [[main_dependency main_package] ..package
      dependencies (|> (//package.dependencies main_package)
                       (\ try.monad map set.to_list)
-                      (try.default (list))
+                      (try.else (list))
                       (monad.map ! (function (_ dependency)
                                      (do !
                                        [pom (random.one (function (_ [identity profile pom])
@@ -111,7 +111,7 @@
           [wrote! (/.write_one program fs dependency expected_package)
            read! (/.read_one program fs dependency)]
           (_.cover' [/.write_one /.read_one]
-                    (<| (try.default false)
+                    (<| (try.else false)
                         (do try.monad
                           [_ wrote!
                            actual_package read!]
@@ -132,7 +132,7 @@
           [wrote! (/.write_all program fs expected)
            read! (/.read_all program fs (dictionary.keys expected) //dependency/resolution.empty)]
           (_.cover' [/.write_all /.read_all]
-                    (<| (try.default false)
+                    (<| (try.else false)
                         (do try.monad
                           [_ wrote!
                            actual read!]
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index e27fd039a..fd08f541c 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -122,5 +122,5 @@
                                (in (#try.Success (and correct_number_of_runs!
                                                       no_dangling_process!)))))]
                   (_.cover' [/.do!]
-                            (try.default false verdict))))
+                            (try.else false verdict))))
             ))))
diff --git a/stdlib/source/test/aedifex/command/build.lux b/stdlib/source/test/aedifex/command/build.lux
index b38b61340..1a1ff7f60 100644
--- a/stdlib/source/test/aedifex/command/build.lux
+++ b/stdlib/source/test/aedifex/command/build.lux
@@ -199,7 +199,7 @@
                                /.ruby_compiler_name
                                /.start
                                /.success]
-                              (try.default false verdict)))))
+                              (try.else false verdict)))))
             (do !
               [#let [console (@version.echo "")]
                [compiler resolution] ..resolution]
@@ -213,7 +213,7 @@
                                (in (and (text\= /.start start)
                                         (text\= /.failure end))))]
                     (_.cover' [/.failure]
-                              (try.default false verdict)))))
+                              (try.else false verdict)))))
             (do !
               [expected/0 (random.ascii/alpha 5)
                expected/1 (random.ascii/alpha 5)
@@ -243,7 +243,7 @@
                                                          (text\= expected/2 actual/2)
                                                          end!)))]
                                      (_.cover' [<log!>]
-                                               (try.default false verdict)))))]
+                                               (try.else false verdict)))))]
 
                             [#0 /.log_output!]
                             [#1 /.log_error!]
diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux
index 238fa824b..36ed10b8e 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -116,4 +116,4 @@
                                        (not sub_exists!/post))
                                   (text\= (/.success target_path) logging))))]
               (_.cover' [/.do! /.success]
-                        (try.default false verdict)))))))
+                        (try.else false verdict)))))))
diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 41a997d6f..b34584b19 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -125,4 +125,4 @@
                                   deployed_sha-1!
                                   deployed_md5!)))]
               (_.cover' [/.do! /.success]
-                        (try.default false verdict)))))))
+                        (try.else false verdict)))))))
diff --git a/stdlib/source/test/aedifex/command/deps.lux b/stdlib/source/test/aedifex/command/deps.lux
index c00c88078..165c859b8 100644
--- a/stdlib/source/test/aedifex/command/deps.lux
+++ b/stdlib/source/test/aedifex/command/deps.lux
@@ -127,4 +127,4 @@
                                   had_dependee_after!
                                   had_depender_after!)))]
               (_.cover' [/.do!]
-                        (try.default false verdict)))))))
+                        (try.else false verdict)))))))
diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index a9de141ff..f68fcb732 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -93,7 +93,7 @@
                                       library_exists!
                                       pom_exists!)))]
                   (_.cover' [/.do! /.success]
-                            (try.default false verdict))))
+                            (try.else false verdict))))
             (in (do {! async.monad}
                   [#let [fs (file.mock /)
                          program (program.async (program.mock environment.empty home working_directory))]
@@ -101,5 +101,5 @@
                   (_.cover' [/.failure]
                             (|> logging
                                 (try\map (text\= /.failure))
-                                (try.default false)))))
+                                (try.else false)))))
             ))))
diff --git a/stdlib/source/test/aedifex/command/pom.lux b/stdlib/source/test/aedifex/command/pom.lux
index ebc0ae09e..6578e793f 100644
--- a/stdlib/source/test/aedifex/command/pom.lux
+++ b/stdlib/source/test/aedifex/command/pom.lux
@@ -58,7 +58,7 @@
                              (in (and logging!
                                       expected_content!)))]
                   (_.cover' [/.do! /.success]
-                            (try.default false verdict)))
+                            (try.else false verdict)))
                 
                 (#try.Failure error)
                 (_.cover' [/.do!]
diff --git a/stdlib/source/test/aedifex/command/test.lux b/stdlib/source/test/aedifex/command/test.lux
index 93c6642f7..b82a32678 100644
--- a/stdlib/source/test/aedifex/command/test.lux
+++ b/stdlib/source/test/aedifex/command/test.lux
@@ -76,7 +76,7 @@
                                              (text\= /.success test_end)))))]
                     (_.cover' [/.do!
                                /.start /.success]
-                              (try.default false verdict)))))
+                              (try.else false verdict)))))
             (let [fs (file.mock (\ file.default separator))
                   console (@version.echo "")]
               (in (do async.monad
@@ -111,5 +111,5 @@
                                         (and (text\= /.start test_start)
                                              (text\= /.failure test_end)))))]
                     (_.cover' [/.failure]
-                              (try.default false verdict)))))
+                              (try.else false verdict)))))
             ))))
diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux
index 30c7d3f80..f87424ab6 100644
--- a/stdlib/source/test/aedifex/command/version.lux
+++ b/stdlib/source/test/aedifex/command/version.lux
@@ -76,4 +76,4 @@
                          (in (text\= (version.format language/lux.version)
                                      logging)))]
               (_.cover' [/.do!]
-                        (try.default false verdict)))))))
+                        (try.else false verdict)))))))
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index 3688e56aa..e62e7b2e4 100644
--- a/stdlib/source/test/aedifex/dependency/deployment.lux
+++ b/stdlib/source/test/aedifex/dependency/deployment.lux
@@ -107,7 +107,7 @@
         (and (|> cache
                  (dictionary.get library_url)
                  (maybe\map (binary\= expected_library))
-                 (maybe.default false))
+                 (maybe.else false))
              (dictionary.key? cache (format library_url artifact/extension.sha-1))
              (dictionary.key? cache (format library_url artifact/extension.md5)))
 
@@ -115,7 +115,7 @@
         (and (|> cache
                  (dictionary.get pom_url)
                  (maybe\map (binary\= expected_pom))
-                 (maybe.default false))
+                 (maybe.else false))
              (dictionary.key? cache (format pom_url artifact/extension.sha-1))
              (dictionary.key? cache (format pom_url artifact/extension.md5)))
 
@@ -162,7 +162,7 @@
                     (_.cover' [/.one]
                               (|> ?outcome
                                   (try\map (verify_one 1 address package cache expected_artifact))
-                                  (try.default false))))))
+                                  (try.else false))))))
             (do {! random.monad}
               [#let [hash (: (Hash [Dependency Artifact Package])
                              (\ hash.functor map (|>> product.right product.left product.left)
@@ -200,5 +200,5 @@
                                                                 bundles)]
                                                (and expected_deployments!
                                                     every_deployment_was_correct!))))
-                                  (try.default false))))))
+                                  (try.else false))))))
             ))))
diff --git a/stdlib/source/test/aedifex/input.lux b/stdlib/source/test/aedifex/input.lux
index 0cea854c4..e86efa6dd 100644
--- a/stdlib/source/test/aedifex/input.lux
+++ b/stdlib/source/test/aedifex/input.lux
@@ -63,4 +63,4 @@
                                     (update@ #//.repositories ..with_default_repository))
                                 actual)))]
               (_.cover' [/.read]
-                        (try.default false verdict)))))))
+                        (try.else false verdict)))))))
diff --git a/stdlib/source/test/aedifex/metadata/artifact.lux b/stdlib/source/test/aedifex/metadata/artifact.lux
index acd0575a0..0d291d368 100644
--- a/stdlib/source/test/aedifex/metadata/artifact.lux
+++ b/stdlib/source/test/aedifex/metadata/artifact.lux
@@ -77,7 +77,7 @@
                          #///artifact.version (|> expected
                                                   (get@ #/.versions)
                                                   list.head
-                                                  (maybe.default ""))}]]
+                                                  (maybe.else ""))}]]
         ($_ _.and
             (_.for [/.equivalence]
                    ($equivalence.spec /.equivalence ..random))
@@ -90,7 +90,7 @@
                            list
                            (<xml>.run /.parser)
                            (try\map (\ /.equivalence = expected))
-                           (try.default false))))
+                           (try.else false))))
             (_.cover [/.uri]
                      (text\= (//.remote_project_uri artifact)
                              (/.uri artifact)))
diff --git a/stdlib/source/test/aedifex/metadata/snapshot.lux b/stdlib/source/test/aedifex/metadata/snapshot.lux
index c9787d8bb..ff11ff7ab 100644
--- a/stdlib/source/test/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/test/aedifex/metadata/snapshot.lux
@@ -102,7 +102,7 @@
                          list
                          (<xml>.run /.parser)
                          (try\map (\ /.equivalence = expected))
-                         (try.default false)))
+                         (try.else false)))
             (_.cover [/.uri]
                      (text\= (//.remote_artifact_uri artifact)
                              (/.uri artifact)))
diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux
index 8896b731d..9c6adfcf2 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -95,7 +95,7 @@
                                          [xml_pom (\ utf8.codec decode binary_pom)
                                           decoded_pom (\ xml.codec decode xml_pom)]
                                          (in (\ xml.equivalence = actual_pom decoded_pom)))
-                                       (try.default false))
+                                       (try.else false))
                                    (case pom_status
                                      (#//status.Verified actual_sha1 expected_md5)
                                      (and (//hash\= expected_sha1 actual_sha1)
diff --git a/stdlib/source/test/aedifex/project.lux b/stdlib/source/test/aedifex/project.lux
index 4df06a337..58ee8c577 100644
--- a/stdlib/source/test/aedifex/project.lux
+++ b/stdlib/source/test/aedifex/project.lux
@@ -75,13 +75,13 @@
                        (_.cover [/.profile]
                                 (and (|> (/.profile super_name project)
                                          (try\map (\ //.equivalence = super_profile))
-                                         (try.default false))
+                                         (try.else false))
                                      (|> (/.profile dummy_name project)
                                          (try\map (\ //.equivalence = dummy_profile))
-                                         (try.default false))
+                                         (try.else false))
                                      (|> (/.profile sub_name project)
                                          (try\map (\ //.equivalence = (\ //.monoid compose sub_profile super_profile)))
-                                         (try.default false))))
+                                         (try.else false))))
                        (_.cover [/.unknown_profile]
                                 (case (/.profile fake_name project)
                                   (#try.Success _)
diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux
index 180ea404a..eab07411f 100644
--- a/stdlib/source/test/aedifex/repository/local.lux
+++ b/stdlib/source/test/aedifex/repository/local.lux
@@ -48,5 +48,5 @@
                                    (#try.Failure _) true)
                                  (|> actual
                                      (try\map (binary\= expected))
-                                     (try.default false))))))
+                                     (try.else false))))))
             ))))
diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index 5f74cab9d..cad0fe873 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -49,7 +49,7 @@
            (if (|> headers
                    (dictionary.get "User-Agent")
                    (maybe\map (is? /.user_agent))
-                   (maybe.default false))
+                   (maybe.else false))
              (case [method input]
                [#@http.Get #.None]
                [http/status.ok
@@ -60,7 +60,7 @@
                (if (|> headers
                        (dictionary.get "Authorization")
                        (maybe\map (text\= (//identity.basic_auth user password)))
-                       (maybe.default false))
+                       (maybe.else false))
                  [http/status.created
                   {#@http.headers (http.headers (list))
                    #@http.body (..url_body url)}]
@@ -103,11 +103,11 @@
                                 (try\map (\ utf8.codec decode))
                                 try\join
                                 (try\map (text\= (format address uri)))
-                                (try.default false))
+                                (try.else false))
                             (|> (\ repo upload uri content)
                                 io.run
                                 (try\map (function.constant true))
-                                (try.default false)))))
+                                (try.else false)))))
             (_.cover [/.upload_failure]
                      (let [repo (/.repository (..good_http user password)
                                               #.None
diff --git a/stdlib/source/test/aedifex/runtime.lux b/stdlib/source/test/aedifex/runtime.lux
index cb6d1a8fe..bd87377bc 100644
--- a/stdlib/source/test/aedifex/runtime.lux
+++ b/stdlib/source/test/aedifex/runtime.lux
@@ -62,5 +62,5 @@
                                     (get@ #/.parameters)
                                     list.last
                                     (maybe\map (text\= path))
-                                    (maybe.default false)))))
+                                    (maybe.else false)))))
                 )))))