From 0d909187d5b9effcd08f533d50af7d29c0d6bfd8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 05:42:36 -0400
Subject: De-sigil-ification: $

---
 .../aedifex/artifact/snapshot/version/value.lux    | 52 +++++++++++-----------
 1 file changed, 26 insertions(+), 26 deletions(-)

(limited to 'stdlib/source/test/aedifex/artifact/snapshot/version/value.lux')

diff --git a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
index fba89a430..7967e935f 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
@@ -30,37 +30,37 @@
 
 (def: .public random
   (Random /.Value)
-  ($_ random.and
-      (random.ascii/alpha 5)
-      (random.or (random#in [])
-                 $///stamp.random)
-      ))
+  (all random.and
+       (random.ascii/alpha 5)
+       (random.or (random#in [])
+                  $///stamp.random)
+       ))
 
 (def: .public test
   Test
   (<| (_.covering /._)
       (_.for [/.Value])
-      ($_ _.and
-          (_.for [/.equivalence]
-                 ($equivalence.spec /.equivalence ..random))
+      (all _.and
+           (_.for [/.equivalence]
+                  ($equivalence.spec /.equivalence ..random))
 
-          (do random.monad
-            [sample random
-             stamp $///stamp.random]
-            (let [version (the /.#version sample)
+           (do random.monad
+             [sample random
+              stamp $///stamp.random]
+             (let [version (the /.#version sample)
 
-                  local!
-                  (text#= version
-                          (/.format (has /.#snapshot {///.#Local} sample)))
+                   local!
+                   (text#= version
+                           (/.format (has /.#snapshot {///.#Local} sample)))
 
-                  remote_format (/.format [/.#version (format version /.snapshot)
-                                           /.#snapshot {///.#Remote stamp}])
-                  remote!
-                  (and (text.starts_with? (format version (///time.format (the ///stamp.#time stamp)))
-                                          remote_format)
-                       (text.ends_with? (%.nat (the ///stamp.#build stamp))
-                                        remote_format))]
-              (_.cover [/.snapshot /.format]
-                       (and local!
-                            remote!))))
-          )))
+                   remote_format (/.format [/.#version (format version /.snapshot)
+                                            /.#snapshot {///.#Remote stamp}])
+                   remote!
+                   (and (text.starts_with? (format version (///time.format (the ///stamp.#time stamp)))
+                                           remote_format)
+                        (text.ends_with? (%.nat (the ///stamp.#build stamp))
+                                         remote_format))]
+               (_.cover [/.snapshot /.format]
+                        (and local!
+                             remote!))))
+           )))
-- 
cgit v1.2.3