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

---
 stdlib/source/test/aedifex/artifact/type.lux | 68 ++++++++++++++--------------
 1 file changed, 34 insertions(+), 34 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/artifact/type.lux b/stdlib/source/test/aedifex/artifact/type.lux
index 41f3510e7..a5592e3ef 100644
--- a/stdlib/source/test/aedifex/artifact/type.lux
+++ b/stdlib/source/test/aedifex/artifact/type.lux
@@ -1,43 +1,43 @@
 (.using
-  [library
-   [lux "*"
-    ["_" test {"+" Test}]
-    [abstract
-     [monad {"+" do}]]
-    [data
-     ["[0]" text]
-     [collection
-      ["[0]" set]
-      ["[0]" list]]]
-    [math
-     ["[0]" random {"+" Random} ("[1]#[0]" monad)]
-     [number
-      ["n" nat]]]]]
-  [\\program
-   ["[0]" /]])
+ [library
+  [lux "*"
+   ["_" test {"+" Test}]
+   [abstract
+    [monad {"+" do}]]
+   [data
+    ["[0]" text]
+    [collection
+     ["[0]" set]
+     ["[0]" list]]]
+   [math
+    ["[0]" random {"+" Random} ("[1]#[0]" monad)]
+    [number
+     ["n" nat]]]]]
+ [\\program
+  ["[0]" /]])
 
 (def: .public random
   (Random /.Type)
-  ($_ random.either
-      ($_ random.either
-          (random#in /.lux_library)
-          (random#in /.jvm_library))
-      ($_ random.either
-          (random#in /.pom)
-          (random#in /.md5)
-          (random#in /.sha-1))
-      ))
+  (all random.either
+       (all random.either
+            (random#in /.lux_library)
+            (random#in /.jvm_library))
+       (all random.either
+            (random#in /.pom)
+            (random#in /.md5)
+            (random#in /.sha-1))
+       ))
 
 (def: .public test
   Test
   (<| (_.covering /._)
       (_.for [/.Type]
-             ($_ _.and
-                 (_.cover [/.lux_library /.jvm_library /.js_library
-                           /.pom /.md5 /.sha-1]
-                          (let [options (list /.lux_library /.jvm_library /.js_library
-                                              /.pom /.md5 /.sha-1)
-                                uniques (set.of_list text.hash options)]
-                            (n.= (list.size options)
-                                 (set.size uniques))))
-                 ))))
+             (all _.and
+                  (_.cover [/.lux_library /.jvm_library /.js_library
+                            /.pom /.md5 /.sha-1]
+                           (let [options (list /.lux_library /.jvm_library /.js_library
+                                               /.pom /.md5 /.sha-1)
+                                 uniques (set.of_list text.hash options)]
+                             (n.= (list.size options)
+                                  (set.size uniques))))
+                  ))))
-- 
cgit v1.2.3