From 93eb82e1bf6d2f2a6b3b0adb85f4ab93cbb766a9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 14 Mar 2022 03:33:01 -0400
Subject: De-sigil-ification: @

---
 .../aedifex/artifact/snapshot/version/value.lux    | 64 +++++++++++-----------
 1 file changed, 32 insertions(+), 32 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 6e7947aff..fba89a430 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
@@ -1,32 +1,32 @@
 (.using
-  [library
-   [lux "*"
-    ["_" test {"+" Test}]
-    [abstract
-     [monad {"+" do}]
-     [\\specification
-      ["$[0]" equivalence]]]
-    [control
-     ["[0]" try ("[1]#[0]" functor)]
-     [parser
-      ["<[0]>" text]]]
-    [data
-     ["[0]" text ("[1]#[0]" equivalence)
-      ["%" format {"+" format}]]]
-    [math
-     ["[0]" random {"+" Random} ("[1]#[0]" monad)]
-     [number
-      ["n" nat]
-      ["i" int]]]
-    [time
-     ["[0]" instant]]]]
-  ["$[0]" /// "_"
-   ["[1][0]" stamp]]
-  [\\program
-   ["[0]" /
-    ["//[1]" ///
-     ["[1][0]" stamp]
-     ["[1][0]" time]]]])
+ [library
+  [lux "*"
+   ["_" test {"+" Test}]
+   [abstract
+    [monad {"+" do}]
+    [\\specification
+     ["$[0]" equivalence]]]
+   [control
+    ["[0]" try ("[1]#[0]" functor)]
+    [parser
+     ["<[0]>" text]]]
+   [data
+    ["[0]" text ("[1]#[0]" equivalence)
+     ["%" format {"+" format}]]]
+   [math
+    ["[0]" random {"+" Random} ("[1]#[0]" monad)]
+    [number
+     ["n" nat]
+     ["i" int]]]
+   [time
+    ["[0]" instant]]]]
+ ["$[0]" /// "_"
+  ["[1][0]" stamp]]
+ [\\program
+  ["[0]" /
+   ["//[1]" ///
+    ["[1][0]" stamp]
+    ["[1][0]" time]]]])
 
 (def: .public random
   (Random /.Value)
@@ -47,18 +47,18 @@
           (do random.monad
             [sample random
              stamp $///stamp.random]
-            (let [version (value@ /.#version sample)
+            (let [version (the /.#version sample)
 
                   local!
                   (text#= version
-                          (/.format (with@ /.#snapshot {///.#Local} sample)))
+                          (/.format (has /.#snapshot {///.#Local} sample)))
 
                   remote_format (/.format [/.#version (format version /.snapshot)
                                            /.#snapshot {///.#Remote stamp}])
                   remote!
-                  (and (text.starts_with? (format version (///time.format (value@ ///stamp.#time stamp)))
+                  (and (text.starts_with? (format version (///time.format (the ///stamp.#time stamp)))
                                           remote_format)
-                       (text.ends_with? (%.nat (value@ ///stamp.#build stamp))
+                       (text.ends_with? (%.nat (the ///stamp.#build stamp))
                                         remote_format))]
               (_.cover [/.snapshot /.format]
                        (and local!
-- 
cgit v1.2.3