From 4ca397765805eda5ddee393901ed3a02001a960a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 25 Dec 2020 09:22:38 -0400
Subject: Replaced kebab-case with snake_case for naming convention.

---
 stdlib/source/program/aedifex/package.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/program/aedifex/package.lux')

diff --git a/stdlib/source/program/aedifex/package.lux b/stdlib/source/program/aedifex/package.lux
index 03f2c3994..b3118a7e0 100644
--- a/stdlib/source/program/aedifex/package.lux
+++ b/stdlib/source/program/aedifex/package.lux
@@ -25,17 +25,17 @@
   #Local
   #Remote)
 
-(structure: any-equivalence
+(structure: any_equivalence
   (Equivalence Any)
 
   (def: (= _ _)
     true))
 
-(def: origin-equivalence
+(def: origin_equivalence
   (Equivalence Origin)
   ($_ sum.equivalence
-      ..any-equivalence
-      ..any-equivalence
+      ..any_equivalence
+      ..any_equivalence
       ))
 
 (type: #export Package
@@ -46,7 +46,7 @@
 (template [<name> <tag>]
   [(def: #export <name>
      (-> Package Bit)
-     (|>> (get@ #origin) (\ ..origin-equivalence = <tag>)))]
+     (|>> (get@ #origin) (\ ..origin_equivalence = <tag>)))]
 
   [local? #Local]
   [remote? #Remote]
@@ -68,7 +68,7 @@
 (def: #export equivalence
   (Equivalence Package)
   ($_ product.equivalence
-      ..origin-equivalence
+      ..origin_equivalence
       (product.equivalence binary.equivalence //status.equivalence)
       (product.equivalence xml.equivalence //status.equivalence)
       ))
-- 
cgit v1.2.3