From e00ba096c8837abe85d366e0c1293c09dbe84d81 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Aug 2021 03:29:15 -0400
Subject: Some bug fixes.

---
 stdlib/source/test/aedifex/artifact/snapshot/version/value.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 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 ada815059..915d283da 100644
--- a/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/test/aedifex/artifact/snapshot/version/value.lux
@@ -47,18 +47,18 @@
           (do random.monad
             [sample random
              stamp $///stamp.random]
-            (let [version (get@ #/.version sample)
+            (let [version (value@ #/.version sample)
 
                   local!
                   (text\= version
-                          (/.format (set@ #/.snapshot #///.Local sample)))
+                          (/.format (with@ #/.snapshot #///.Local sample)))
 
                   remote_format (/.format {#/.version (format version /.snapshot)
                                            #/.snapshot (#///.Remote stamp)})
                   remote!
-                  (and (text.starts_with? (format version (///time.format (get@ #///stamp.time stamp)))
+                  (and (text.starts_with? (format version (///time.format (value@ #///stamp.time stamp)))
                                           remote_format)
-                       (text.ends_with? (%.nat (get@ #///stamp.build stamp))
+                       (text.ends_with? (%.nat (value@ #///stamp.build stamp))
                                         remote_format))]
               (_.cover [/.snapshot /.format]
                        (and local!
-- 
cgit v1.2.3