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 ++--
 stdlib/source/program/aedifex/artifact/time/time.lux              | 8 ++++----
 stdlib/source/program/aedifex/artifact/versioning.lux             | 8 ++++----
 stdlib/source/program/aedifex/metadata/artifact.lux               | 4 ++--
 stdlib/source/program/aedifex/metadata/snapshot.lux               | 6 +++---
 7 files changed, 22 insertions(+), 22 deletions(-)

(limited to 'stdlib/source/program')

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)
diff --git a/stdlib/source/program/aedifex/artifact/time/time.lux b/stdlib/source/program/aedifex/artifact/time/time.lux
index 4b77f6d1f..441c4605b 100644
--- a/stdlib/source/program/aedifex/artifact/time/time.lux
+++ b/stdlib/source/program/aedifex/artifact/time/time.lux
@@ -21,10 +21,10 @@
 
 (def: .public (format value)
   (%.Format Time)
-  (let [(^slots [time.#hour time.#minute time.#second]) (time.clock value)]
-    (%.format (//.pad #hour)
-              (//.pad #minute)
-              (//.pad #second))))
+  (let [(^open "_[0]") (time.clock value)]
+    (%.format (//.pad _#hour)
+              (//.pad _#minute)
+              (//.pad _#second))))
 
 (def: .public parser
   (<text>.Parser Time)
diff --git a/stdlib/source/program/aedifex/artifact/versioning.lux b/stdlib/source/program/aedifex/artifact/versioning.lux
index 09d8e4758..99769536f 100644
--- a/stdlib/source/program/aedifex/artifact/versioning.lux
+++ b/stdlib/source/program/aedifex/artifact/versioning.lux
@@ -61,12 +61,12 @@
   (-> //time.Time XML)
   (|>> //time.format {xml.#Text} list {xml.#Node ..<last_updated> xml.attributes}))
 
-(def: .public (format (^slots [#snapshot #last_updated #versions]))
+(def: .public (format (^open "_[0]"))
   (-> Versioning XML)
   (<| {xml.#Node ..<versioning> xml.attributes}
-      (list (//snapshot.format snapshot)
-            (..last_updated_format last_updated)
-            (|> versions
+      (list (//snapshot.format _#snapshot)
+            (..last_updated_format _#last_updated)
+            (|> _#versions
                 (list#each //snapshot/version.format)
                 {xml.#Node ..<snapshot_versions> xml.attributes}))))
 
diff --git a/stdlib/source/program/aedifex/metadata/artifact.lux b/stdlib/source/program/aedifex/metadata/artifact.lux
index d0a662185..60d5d6e6d 100644
--- a/stdlib/source/program/aedifex/metadata/artifact.lux
+++ b/stdlib/source/program/aedifex/metadata/artifact.lux
@@ -59,7 +59,7 @@
 
 (def: (time_format value)
   (%.Format Time)
-  (let [(^slots [time.#hour time.#minute time.#second]) (time.clock value)]
+  (let [(^open "[0]") (time.clock value)]
     (%.format (..pad #hour)
               (..pad #minute)
               (..pad #second))))
@@ -187,7 +187,7 @@
       
       {try.#Failure error}
       (in {try.#Success
-           (let [(^slots [///artifact.#group ///artifact.#name]) artifact]
+           (let [(^open "[0]") artifact]
              [..#group #group
               ..#name #name
               ..#versions (list)
diff --git a/stdlib/source/program/aedifex/metadata/snapshot.lux b/stdlib/source/program/aedifex/metadata/snapshot.lux
index 943bf6004..fe9a2e6a0 100644
--- a/stdlib/source/program/aedifex/metadata/snapshot.lux
+++ b/stdlib/source/program/aedifex/metadata/snapshot.lux
@@ -69,15 +69,15 @@
   [version_format Version ..<version> (|>)]
   )
 
-(def: .public (format (^slots [#artifact #versioning]))
+(def: .public (format (^open "[0]"))
   (-> Metadata XML)
-  (let [(^slots [///artifact.#group ///artifact.#name ///artifact.#version]) artifact]
+  (let [(^open "[0]") #artifact]
     {xml.#Node ..<metadata>
                xml.attributes
                (list (..group_format group)
                      (..name_format name)
                      (..version_format version)
-                     (///artifact/versioning.format versioning))}))
+                     (///artifact/versioning.format #versioning))}))
 
 (def: (text tag)
   (-> xml.Tag (Parser Text))
-- 
cgit v1.2.3