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: $

---
 .../program/aedifex/artifact/snapshot/stamp.lux    |  8 ++++----
 .../program/aedifex/artifact/snapshot/version.lux  | 22 +++++++++++-----------
 .../aedifex/artifact/snapshot/version/value.lux    |  8 ++++----
 3 files changed, 19 insertions(+), 19 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 f17f27680..55a3957a9 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/stamp.lux
@@ -23,10 +23,10 @@
 
 (def: .public equivalence
   (Equivalence Stamp)
-  ($_ product.equivalence
-      //time.equivalence
-      //build.equivalence
-      ))
+  (all product.equivalence
+       //time.equivalence
+       //build.equivalence
+       ))
 
 (def: <timestamp>
   xml.Tag
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version.lux b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
index 66923459c..e5053ed73 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version.lux
@@ -25,11 +25,11 @@
 
 (def: .public equivalence
   (Equivalence Version)
-  ($_ product.equivalence
-      text.equivalence
-      text.equivalence
-      ///time.equivalence
-      ))
+  (all product.equivalence
+       text.equivalence
+       text.equivalence
+       ///time.equivalence
+       ))
 
 (template [<definition> <tag>]
   [(def: <definition> xml.Tag ["" <tag>])]
@@ -60,9 +60,9 @@
 (def: .public parser
   (Parser Version)
   (<| (<xml>.node ..<snapshot_version>)
-      ($_ <>.and
-          (<xml>.somewhere (..text ..<extension>))
-          (<xml>.somewhere (..text ..<value>))
-          (<xml>.somewhere (<text>.then ///time.parser
-                                        (..text ..<updated>)))
-          )))
+      (all <>.and
+           (<xml>.somewhere (..text ..<extension>))
+           (<xml>.somewhere (..text ..<value>))
+           (<xml>.somewhere (<text>.then ///time.parser
+                                         (..text ..<updated>)))
+           )))
diff --git a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
index 65d30acdf..63bed8532 100644
--- a/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
+++ b/stdlib/source/program/aedifex/artifact/snapshot/version/value.lux
@@ -18,10 +18,10 @@
 
 (def: .public equivalence
   (Equivalence Value)
-  ($_ product.equivalence
-      text.equivalence
-      ///.equivalence
-      ))
+  (all product.equivalence
+       text.equivalence
+       ///.equivalence
+       ))
 
 (def: separator
   "-")
-- 
cgit v1.2.3