Improved single-line comment syntax (from "##" to "...").

6 files changed, 20 insertions, 20 deletions

diff --git a/stdlib/source/test/aedifex/cli.lux b/stdlib/source/test/aedifex/cli.lux
index f59cf6619..4b5e79ac5 100644
--- a/stdlib/source/test/aedifex/cli.lux
+++ b/stdlib/source/test/aedifex/cli.lux
@@ -28,24 +28,24 @@
 (def: command
   (Random /.Command)
   ($_ random.or
-      ## #Version
+      ... #Version
       (random\in [])
-      ## #Clean
+      ... #Clean
       (random\in [])
-      ## #POM
+      ... #POM
       (random\in [])
-      ## #Dependencies
+      ... #Dependencies
       (random\in [])
-      ## #Install
+      ... #Install
       (random\in [])
-      ## #Deploy
+      ... #Deploy
       ($_ random.and
           (random.ascii/alpha 1)
           (random.ascii/alpha 1)
           (random.ascii/alpha 1))
-      ## #Compilation
+      ... #Compilation
       ..compilation
-      ## #Auto
+      ... #Auto
       ..compilation))
 
 (def: (compilation_format value)
diff --git a/stdlib/source/test/aedifex/command/auto.lux b/stdlib/source/test/aedifex/command/auto.lux
index 6a7ef98ab..074eeab5e 100644
--- a/stdlib/source/test/aedifex/command/auto.lux
+++ b/stdlib/source/test/aedifex/command/auto.lux
@@ -53,7 +53,7 @@
     [@runs
      (function (_ console program fs shell resolution profile)
        (do {! async.monad}
-         [[_ actual_runs] (async.future (atom.update inc @runs))]
+         [[_ actual_runs] (async.future (atom.update! inc @runs))]
          (if (n.= expected_runs actual_runs)
            (in (#try.Failure end_signal))
            (do (try.with !)
@@ -116,7 +116,7 @@
                                                                               (#try.Success _)
                                                                               false))))
                                 correct_number_of_runs! (|> @runs
-                                                            atom.read
+                                                            atom.read!
                                                             async.future
                                                             (\ ! map (n.= expected_runs)))]
                                (in (#try.Success (and correct_number_of_runs!
diff --git a/stdlib/source/test/aedifex/command/install.lux b/stdlib/source/test/aedifex/command/install.lux
index 0ca484196..a3cd99edd 100644
--- a/stdlib/source/test/aedifex/command/install.lux
+++ b/stdlib/source/test/aedifex/command/install.lux
@@ -84,11 +84,11 @@
                               library_exists! (|> library_path
                                                   (format home /)
                                                   (\ fs file?)
-                                                  (\ async.monad map exception.return))
+                                                  (\ async.monad map (|>> #try.Success)))
                               pom_exists! (|> pom_path
                                               (format home /)
                                               (\ fs file?)
-                                              (\ async.monad map exception.return))]
+                                              (\ async.monad map (|>> #try.Success)))]
                              (in (and succeeded!
                                       library_exists!
                                       pom_exists!)))]
diff --git a/stdlib/source/test/aedifex/dependency/deployment.lux b/stdlib/source/test/aedifex/dependency/deployment.lux
index ec2ecad3d..0add3a487 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.put url input) cache)
                
                _
                (in [])))]
@@ -158,7 +158,7 @@
                      repository (repository.async (remote.repository http #.None address))]]
               (in (do async.monad
                     [?outcome (/.one repository dependency package)
-                     cache (async.future (atom.read cache))]
+                     cache (async.future (atom.read! cache))]
                     (_.cover' [/.one]
                               (|> ?outcome
                                   (try\map (verify_one 1 address package cache expected_artifact))
@@ -181,7 +181,7 @@
                      repository (repository.async (remote.repository http #.None address))]]
               (in (do async.monad
                     [?outcome (/.all repository resolution)
-                     cache (async.future (atom.read cache))]
+                     cache (async.future (atom.read! cache))]
                     (_.cover' [/.all]
                               (|> ?outcome
                                   (try\map (function (_ actual_artifacts)
diff --git a/stdlib/source/test/aedifex/dependency/resolution.lux b/stdlib/source/test/aedifex/dependency/resolution.lux
index 01b57eb62..4bef34eff 100644
--- a/stdlib/source/test/aedifex/dependency/resolution.lux
+++ b/stdlib/source/test/aedifex/dependency/resolution.lux
@@ -132,7 +132,7 @@
                  (text.ends_with? ..pom_md5 uri)
                  (#try.Success [state (..md5 pom)])
 
-                 ## else
+                 ... else
                  (#try.Failure "NOPE")))
          (#try.Failure "NOPE")))
      (def: (on_upload uri binary state)
@@ -185,7 +185,7 @@
                                       (\ utf8.codec encode)
                                       ..md5)])
 
-             ## else
+             ... else
              (#try.Failure "NOPE"))
        (#try.Failure "NOPE")))
    (def: (on_upload uri binary state)
@@ -238,7 +238,7 @@
                                       (\ utf8.codec encode)
                                       ..md5)])
 
-             ## else
+             ... else
              (#try.Failure "NOPE"))
        (#try.Failure "NOPE")))
    (def: (on_upload uri binary state)
diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux
index eead05e89..478f02d7e 100644
--- a/stdlib/source/test/aedifex/repository.lux
+++ b/stdlib/source/test/aedifex/repository.lux
@@ -75,14 +75,14 @@
       (#.Some content)
       (case (binary.size content)
         0 (exception.except ..not_found [uri])
-        _ (exception.return [state content]))
+        _ (#try.Success [state content]))
       
       #.None
       (exception.except ..not_found [uri])))
   (def: (on_upload uri content state)
     (if (dictionary.key? state uri)
       (exception.except ..cannot_upload [uri])
-      (exception.return (dictionary.put uri content state)))))
+      (#try.Success (dictionary.put uri content state)))))
 
 (def: .public test
   Test