From 3b2d67a9679499b6ec9cbd781d2bf55396719136 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 17 Aug 2022 17:15:18 -0400
Subject: Less needless re-compilation in the caching system.

---
 stdlib/source/test/lux.lux | 165 ++++++++++++++++++++++-----------------------
 1 file changed, 82 insertions(+), 83 deletions(-)

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

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index 03ec5b64f..58528f019 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -1,63 +1,62 @@
-(.`` (.`` (.require
-           [library
-            ["/" lux (.except)
-             [program (.only program)]
-             [abstract
-              [monad (.only do)]]
-             [control
-              ["[0]" io]
-              ["[0]" maybe (.use "[1]#[0]" functor)]
-              [concurrency
-               ["[0]" atom (.only Atom)]]]
-             [data
-              ["[0]" product]
-              ["[0]" bit (.use "[1]#[0]" equivalence)]
-              ["[0]" text (.use "[1]#[0]" equivalence)
-               ["%" \\format (.only format)]]
-              [collection
-               ["[0]" set (.only Set) (.use "[1]#[0]" equivalence)]
-               ["[0]" list (.use "[1]#[0]" functor)
-                ["[0]" property]]]]
-             ["[0]" math
-              ["[0]" random (.use "[1]#[0]" functor)]
-              [number
-               [i8 (.only)]
-               [i16 (.only)]
-               ["n" nat]
-               ["i" int]
-               ["r" rev]
-               ["f" frac]
-               ["[0]" i64]]]
-             ["[0]" meta (.use "[1]#[0]" monad)
-              ["@" target]
-              ["[0]" static]
-              ["[0]" location (.use "[1]#[0]" equivalence)]
-              ["[0]" code (.use "[1]#[0]" equivalence)
-               ["<[1]>" \\parser]]
-              ["[0]" macro (.only)
-               [syntax (.only syntax)]
-               ["^" pattern]
-               ["[0]" template]]]
-             [test
-              ["_" property (.only Test)]]]]
-           ... TODO: Must have 100% coverage on tests.
-           ["[0]" /
-            ["[1][0]" abstract]
-            ["[1][0]" control]
-            ["[1][0]" data]
-            ["[1][0]" debug]
-            
-            ["[1][0]" documentation]
-            ["[1][0]" math]
-            
-            ["[1][0]" meta]
-            ["[1][0]" program]
-            ["[1][0]" test/property]
-            
-            ["[1][0]" world]
-
-            ["[1][0]" ffi]
-            ])))
+(.require
+ [library
+  ["/" lux (.except)
+   [program (.only program)]
+   [abstract
+    [monad (.only do)]]
+   [control
+    ["[0]" io]
+    ["[0]" maybe (.use "[1]#[0]" functor)]
+    [concurrency
+     ["[0]" atom (.only Atom)]]]
+   [data
+    ["[0]" product]
+    ["[0]" bit (.use "[1]#[0]" equivalence)]
+    ["[0]" text (.use "[1]#[0]" equivalence)
+     ["%" \\format (.only format)]]
+    [collection
+     ["[0]" set (.only Set) (.use "[1]#[0]" equivalence)]
+     ["[0]" list (.use "[1]#[0]" functor)
+      ["[0]" property]]]]
+   ["[0]" math
+    ["[0]" random (.use "[1]#[0]" functor)]
+    [number
+     [i8 (.only)]
+     [i16 (.only)]
+     ["n" nat]
+     ["i" int]
+     ["r" rev]
+     ["f" frac]
+     ["[0]" i64]]]
+   ["[0]" meta (.use "[1]#[0]" monad)
+    ["@" target]
+    ["[0]" static]
+    ["[0]" location (.use "[1]#[0]" equivalence)]
+    ["[0]" code (.use "[1]#[0]" equivalence)
+     ["<[1]>" \\parser]]
+    ["[0]" macro (.only)
+     [syntax (.only syntax)]
+     ["^" pattern]
+     ["[0]" template]]]
+   [test
+    ["_" property (.only Test)]]]]
+ ... TODO: Must have 100% coverage on tests.
+ ["[0]" /
+  ["[1][0]" abstract]
+  ["[1][0]" control]
+  ["[1][0]" data]
+  ["[1][0]" debug]
+  
+  ["[1][0]" documentation]
+  ["[1][0]" math]
+  
+  ["[1][0]" meta]
+  ["[1][0]" program]
+  ["[1][0]" test/property]
+  
+  ["[1][0]" world]
+
+  ["[1][0]" ffi]])
 
 (def for_bit
   Test
@@ -1165,29 +1164,29 @@
   Test
   (`` (`` (all _.and
                ..for_bit
-               ..for_try
-               ..for_list
-               ..for_interface
-               ..for_module
-               ..for_pipe
-               ..for_code
-               ..for_macro
-               ..for_type
-               ..for_i64
-               ..for_function
-               ..for_template
-               ..for_static
-               ..for_slot
-               ..for_associative
-               ..for_expansion
-               ..for_value
-               ..for_when
-               ..for_control_flow
-               ..for_def
-               ..for_meta
-               ..for_export
-               (,, (for @.old (,, (these))
-                        (,, (these ..for_bindings))))
+               ... ..for_try
+               ... ..for_list
+               ... ..for_interface
+               ... ..for_module
+               ... ..for_pipe
+               ... ..for_code
+               ... ..for_macro
+               ... ..for_type
+               ... ..for_i64
+               ... ..for_function
+               ... ..for_template
+               ... ..for_static
+               ... ..for_slot
+               ... ..for_associative
+               ... ..for_expansion
+               ... ..for_value
+               ... ..for_when
+               ... ..for_control_flow
+               ... ..for_def
+               ... ..for_meta
+               ... ..for_export
+               ... (,, (for @.old (,, (these))
+               ...          (,, (these ..for_bindings))))
                ))))
 
 (def test
-- 
cgit v1.2.3