From 8c3a1afab9efeb86e2f53d743551fc689fbad257 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Jun 2022 13:33:48 -0400
Subject: De-sigil-ification: suffix : [Part 4]

---
 stdlib/source/program/aedifex/artifact.lux | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/artifact.lux b/stdlib/source/program/aedifex/artifact.lux
index a6824828a..6b27b55a9 100644
--- a/stdlib/source/program/aedifex/artifact.lux
+++ b/stdlib/source/program/aedifex/artifact.lux
@@ -43,25 +43,25 @@
   (Equivalence Artifact)
   (at ..hash equivalence))
 
-(implementation: .public order
+(def: .public order
   (Order Artifact)
+  (implementation
+   (def: equivalence
+     ..equivalence)
 
-  (def: equivalence
-    ..equivalence)
-
-  (def: (< reference subject)
-    (<| (or (text#< (the #group reference)
-                    (the #group subject)))
-
-        (and (text#= (the #group reference)
+   (def: (< reference subject)
+     (<| (or (text#< (the #group reference)
                      (the #group subject)))
-        (or (text#< (the #name reference)
-                    (the #name subject)))
-        
-        (and (text#= (the #name reference)
+
+         (and (text#= (the #group reference)
+                      (the #group subject)))
+         (or (text#< (the #name reference)
                      (the #name subject)))
-        (text#< (the #version reference)
-                (the #version subject)))))
+         
+         (and (text#= (the #name reference)
+                      (the #name subject)))
+         (text#< (the #version reference)
+                 (the #version subject))))))
 
 (with_template [<separator> <definition>]
   [(def: <definition>
-- 
cgit v1.2.3