From 1c93f003f73116202b1f964b0d1b6d3f07b69fb0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 14 Sep 2021 02:01:49 -0400
Subject: No more "^slots".

---
 stdlib/source/program/aedifex/artifact/snapshot/stamp.lux         | 6 +++---
 stdlib/source/program/aedifex/artifact/snapshot/version.lux       | 8 ++++----
 stdlib/source/program/aedifex/artifact/snapshot/version/value.lux | 4 ++--
 3 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'stdlib/source/program/aedifex/artifact/snapshot')

diff --git a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
index f40cf76e5..153a270a8 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
@@ -39,10 +39,10 @@
        list
        {xml.#Node ..<timestamp> xml.attributes}))
 
-(def: .public (format (^slots [#time #build]))
+(def: .public (format (^open "_[0]"))
   (-> Stamp (List XML))
-  (list (..time_format time)
-        (//build.format build)))
+  (list (..time_format _#time)
+        (//build.format _#build)))
 
 (def: time_parser
   (Parser Time)
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
index e2782c12a..ab64989e5 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
@@ -45,12 +45,12 @@
   (-> xml.Tag Text XML)
   (|> value {xml.#Text} list {xml.#Node tag xml.attributes}))
 
-(def: .public (format (^slots [#extension #value #updated]))
+(def: .public (format (^open "_[0]"))
   (-> Version XML)
   (<| {xml.#Node ..<snapshot_version> xml.attributes}
-      (list (..text_format ..<extension> extension)
-            (..text_format ..<value> value)
-            (..text_format ..<updated> (///time.format updated)))))
+      (list (..text_format ..<extension> _#extension)
+            (..text_format ..<value> _#value)
+            (..text_format ..<updated> (///time.format _#updated)))))
 
 (def: (text tag)
   (-> xml.Tag (Parser Text))
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
index d2092b306..7a7b4b28f 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
@@ -29,14 +29,14 @@
 (def: .public snapshot
   "SNAPSHOT")
 
-(def: .public (format (^slots [#version #snapshot]))
+(def: .public (format (^open "[0]"))
   (%.Format Value)
   (case snapshot
     {///.#Local}
     version
     
     {///.#Remote stamp}
-    (let [(^slots [///stamp.#time ///stamp.#build]) stamp]
+    (let [(^open "[0]") stamp]
       (%.format (text.replaced ..snapshot
                                (///time.format time)
                                version)
-- 
cgit v1.2.3