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/runtime.lux | 68 +++++++++++++++++-----------------
 1 file changed, 34 insertions(+), 34 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/runtime.lux b/stdlib/source/test/aedifex/runtime.lux
index 99c1bd92d..5166968f3 100644
--- a/stdlib/source/test/aedifex/runtime.lux
+++ b/stdlib/source/test/aedifex/runtime.lux
@@ -22,13 +22,13 @@
 
 (def: .public random
   (Random /.Runtime)
-  ($_ random.either
-      (random#in /.default_java)
-      (random#in /.default_js)
-      (random#in /.default_python)
-      (random#in /.default_lua)
-      (random#in /.default_ruby)
-      ))
+  (all random.either
+       (random#in /.default_java)
+       (random#in /.default_js)
+       (random#in /.default_python)
+       (random#in /.default_lua)
+       (random#in /.default_ruby)
+       ))
 
 (def: .public test
   Test
@@ -37,31 +37,31 @@
       (do random.monad
         [path (random.ascii/alpha 5)
          runtime ..random]
-        (`` ($_ _.and
-                (_.for [/.equivalence]
-                       ($equivalence.spec /.equivalence ..random))
-                
-                (~~ (template [<command>]
-                      [(_.cover [/.default_java /.default_js /.default_python /.default_lua /.default_ruby]
-                                (let [listing (|> (list /.default_java /.default_js /.default_python /.default_lua /.default_ruby)
-                                                  (list#each (the /.#program)))
-                                      unique (set.of_list text.hash listing)]
-                                  (n.= (list.size listing)
-                                       (set.size unique))))]
+        (`` (all _.and
+                 (_.for [/.equivalence]
+                        ($equivalence.spec /.equivalence ..random))
+                 
+                 (~~ (template [<command>]
+                       [(_.cover [/.default_java /.default_js /.default_python /.default_lua /.default_ruby]
+                                 (let [listing (|> (list /.default_java /.default_js /.default_python /.default_lua /.default_ruby)
+                                                   (list#each (the /.#program)))
+                                       unique (set.of_list text.hash listing)]
+                                   (n.= (list.size listing)
+                                        (set.size unique))))]
 
-                      [/.default_java]
-                      [/.default_js]
-                      [/.default_python]
-                      [/.default_lua]
-                      [/.default_ruby]
-                      ))
-                (_.cover [/.for]
-                         (let [runtime' (/.for runtime path)]
-                           (and (text#= (the /.#program runtime)
-                                        (the /.#program runtime'))
-                                (|> runtime'
-                                    (the /.#parameters)
-                                    list.last
-                                    (maybe#each (text#= path))
-                                    (maybe.else false)))))
-                )))))
+                       [/.default_java]
+                       [/.default_js]
+                       [/.default_python]
+                       [/.default_lua]
+                       [/.default_ruby]
+                       ))
+                 (_.cover [/.for]
+                          (let [runtime' (/.for runtime path)]
+                            (and (text#= (the /.#program runtime)
+                                         (the /.#program runtime'))
+                                 (|> runtime'
+                                     (the /.#parameters)
+                                     list.last
+                                     (maybe#each (text#= path))
+                                     (maybe.else false)))))
+                 )))))
-- 
cgit v1.2.3