Better text formatting for types.

21 files changed, 421 insertions, 208 deletions

diff --git a/lux-bootstrapper/src/lux/type.clj b/lux-bootstrapper/src/lux/type.clj
index aa2f8c9f2..9935d9cfa 100644
--- a/lux-bootstrapper/src/lux/type.clj
+++ b/lux-bootstrapper/src/lux/type.clj
@@ -393,10 +393,10 @@
       (str "(-> " (->> ?ins (&/|map show-type) (&/|interpose " ") (&/fold str "")) " " (show-type ?out) ")"))
 
     (&/$Var id)
-    (str "⌈v:" id "⌋")
+    (str "-" id)
 
     (&/$Ex ?id)
-    (str "⟨e:" ?id "⟩")
+    (str "+" ?id)
 
     (&/$Parameter idx)
     (str idx)
diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux
index 8bd316fee..bd3f36e3e 100644
--- a/stdlib/source/library/lux.lux
+++ b/stdlib/source/library/lux.lux
@@ -3003,10 +3003,10 @@
     (nat#encoded id)
     
     {#Var id}
-    ($_ text#composite "⌈v:" (nat#encoded id) "⌋")
+    ($_ text#composite "-" (nat#encoded id))
     
     {#Ex id}
-    ($_ text#composite "⟨e:" (nat#encoded id) "⟩")
+    ($_ text#composite "+" (nat#encoded id))
     
     {#UnivQ env body}
     ($_ text#composite "(All " (type#encoded body) ")")
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux b/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux
index a65131c3a..4a9efba50 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/generation.lux
@@ -283,7 +283,7 @@
                     (do try.monad
                       [[descriptor document] (archive.find _module archive)]
                       {try.#Success (value@ descriptor.#registry descriptor)}))]
-        (case (registry.remember _name registry)
+        (case (registry.id _name registry)
           {.#None}
           (exception.except ..unknown_definition [name (registry.definitions registry)])
           
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux
index 965a9e641..e85b1325b 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/directive/lux.lux
@@ -47,8 +47,9 @@
      ["[0]" phase]
      [meta
       ["[0]" archive {"+" Archive}
-       ["[0]" artifact]
-       ["[0]" dependency]]]]]]])
+       ["[0]" artifact]]
+      ["[0]" cache "_"
+       ["[1]/[0]" artifact]]]]]]])
 
 (def: .public (custom [syntax handler])
   (All (_ anchor expression directive s)
@@ -119,7 +120,7 @@
    (do phase.monad
      [[interim_artifacts codeG] (/////generation.with_interim_artifacts archive
                                   (generate archive codeS))
-      dependencies (dependency.dependencies archive codeS)
+      dependencies (cache/artifact.dependencies archive codeS)
       module_id (phase.lifted (archive.id module archive))
       id (/////generation.learn name false (set.union interim_artifacts dependencies))
       [target_name value directive] (/////generation.define! [module_id id] {.#None} codeG)
@@ -173,7 +174,7 @@
         (do phase.monad
           [[interim_artifacts codeG] (/////generation.with_interim_artifacts archive
                                        (generate archive codeS))
-           dependencies (dependency.dependencies archive codeS)
+           dependencies (cache/artifact.dependencies archive codeS)
            module_id (phase.lifted (archive.id current_module archive))
            id (<learn> extension (set.union interim_artifacts dependencies))
            [target_name value directive] (/////generation.define! [module_id id] {.#None} codeG)
@@ -498,7 +499,7 @@
   (do phase.monad
     [[interim_artifacts programG] (/////generation.with_interim_artifacts archive
                                     (generate archive programS))
-     dependencies (dependency.dependencies archive programS)
+     dependencies (cache/artifact.dependencies archive programS)
      artifact_id (/////generation.learn /////program.name true (set.union interim_artifacts dependencies))]
     (/////generation.save! artifact_id {.#None} (program [module_id artifact_id] programG))))
 
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/host.lux
index 7a3c93014..dda74b0e1 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/host.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/jvm/host.lux
@@ -71,8 +71,9 @@
       ["[2][0]" variable {"+" Variable Register}]]
      [meta
       ["[0]" archive {"+" Archive}
-       ["[0]" artifact]
-       ["[0]" dependency]]]]]]])
+       ["[0]" artifact]]
+      ["[0]" cache "_"
+       ["[1]/[0]" artifact]]]]]]])
 
 (template [<name> <0>]
   [(def: <name>
@@ -1071,22 +1072,22 @@
   (let [[_super _name _strict_fp? _annotations
          _t_vars _this _arguments _return _exceptions
          bodyS] method]
-    (dependency.dependencies archive bodyS)))
+    (cache/artifact.dependencies archive bodyS)))
 
 (def: (anonymous_dependencies archive inputsTS overriden_methods)
   (-> Archive (List Input) (List [(Environment Synthesis) (/.Overriden_Method Synthesis)])
       (Operation (Set artifact.Dependency)))
   (do [! //////.monad]
-    [all_input_dependencies (monad.each ! (|>> product.right (dependency.dependencies archive)) inputsTS)
+    [all_input_dependencies (monad.each ! (|>> product.right (cache/artifact.dependencies archive)) inputsTS)
      all_closure_dependencies (|> overriden_methods
                                   (list#each product.left)
                                   list.together
-                                  (monad.each ! (dependency.dependencies archive)))
+                                  (monad.each ! (cache/artifact.dependencies archive)))
      all_method_dependencies (monad.each ! (|>> product.right (method_dependencies archive)) overriden_methods)]
-    (in (dependency.all ($_ list#composite
-                            all_input_dependencies
-                            all_closure_dependencies
-                            all_method_dependencies)))))
+    (in (cache/artifact.all ($_ list#composite
+                                all_input_dependencies
+                                all_closure_dependencies
+                                all_method_dependencies)))))
 
 (def: (prepare_argument lux_register argumentT jvm_register)
   (-> Register (Type Value) Register [Register (Bytecode Any)])
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function.lux
index 357337927..2227d9f1d 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/jvm/function.lux
@@ -33,8 +33,9 @@
    [tool
     [compiler
      [meta
-      ["[0]" archive {"+" Archive}
-       ["[0]" dependency]]]]]]]
+      ["[0]" archive {"+" Archive}]
+      ["[0]" cache "_"
+       ["[1]/[0]" artifact]]]]]]]
  ["[0]" / "_"
   ["[1][0]" abstract]
   [field
@@ -100,7 +101,7 @@
 (def: .public (abstraction generate archive [environment arity bodyS])
   (Generator Abstraction)
   (do phase.monad
-    [dependencies (dependency.dependencies archive bodyS)
+    [dependencies (cache/artifact.dependencies archive bodyS)
      @begin //runtime.forge_label
      [function_context bodyG] (generation.with_new_context archive dependencies
                                 (generation.with_anchor [@begin ..this_offset]
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/program.lux b/stdlib/source/library/lux/tool/compiler/language/lux/program.lux
index 176ab28ed..4e1c9805d 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/program.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/program.lux
@@ -1,25 +1,25 @@
 (.using
-  [library
-   [lux {"-" Module}
-    [abstract
-     ["[0]" monad {"+" do}]]
-    [control
-     ["[0]" maybe]
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]]
-    [data
-     ["[0]" product]
-     [text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" functor)]]]]]
-  [//
-   [generation {"+" Context}]
-   [///
-    [meta
-     ["[0]" archive {"+" Archive}
-      ["[0]" descriptor {"+" Module}]
-      ["[0]" registry {"+" Registry}]]]]])
+ [library
+  [lux {"-" Module}
+   [abstract
+    ["[0]" monad {"+" do}]]
+   [control
+    ["[0]" maybe]
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]]
+   [data
+    ["[0]" product]
+    [text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" functor)]]]]]
+ [//
+  [generation {"+" Context}]
+  [///
+   [meta
+    ["[0]" archive {"+" Archive}
+     ["[0]" descriptor {"+" Module}]
+     ["[0]" registry {"+" Registry}]]]]])
 
 (type: .public (Program expression directive)
   (-> Context expression directive))
@@ -45,7 +45,7 @@
                                     (in [[module id] (value@ descriptor.#registry descriptor)])))))]
     (case (list.one (function (_ [[module module_id] registry])
                       (do maybe.monad
-                        [program_id (registry.remember ..name registry)]
+                        [program_id (registry.id ..name registry)]
                         (in [module_id program_id])))
                     registries)
       {.#Some program_context}
diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux
index 9b8e1e38a..c289d9af0 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux
@@ -88,7 +88,7 @@
     [//category.#Custom custom customs]
     )
 
-  (def: .public (remember name registry)
+  (def: .public (id name registry)
     (-> Text Registry (Maybe ID))
     (|> (:representation registry)
         (value@ #resolver)
diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/dependency.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux
index 9d04addde..2a464b397 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/archive/dependency.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/cache/artifact.lux
@@ -23,10 +23,10 @@
      ["[0]" reference {"+" Constant}]
      [language
       [lux
-       ["[0]" analysis
-        ["[1]/[0]" complex]]
        ["[0]" synthesis {"+" Synthesis Path}]
-       ["[0]" generation {"+" Context Operation}]]]
+       ["[0]" generation {"+" Context Operation}]
+       ["[0]" analysis
+        ["[1]/[0]" complex]]]]
      [meta
       ["[0]" archive {"+" Archive}
        ["[0]" artifact]
diff --git a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux b/stdlib/source/library/lux/tool/compiler/meta/cache/module.lux
index 7b8a98a61..e61b8cad2 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/cache/dependency.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/cache/module.lux
@@ -1,26 +1,26 @@
 (.using
-  [library
-   [lux {"-" Module}
-    [abstract
-     ["[0]" monad {"+" do}]]
-    [control
-     ["[0]" maybe ("[1]#[0]" functor)]
-     ["[0]" try {"+" Try}]
-     ["[0]" state]
-     [function
-      ["[0]" memo {"+" Memo}]]]
-    [data
-     ["[0]" text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" list ("[1]#[0]" functor mix)]
-      ["[0]" dictionary {"+" Dictionary}]
-      ["[0]" set {"+" Set}]]]]]
-  [///
-   ["[0]" archive {"+" Output Archive}
-    [key {"+" Key}]
-    ["[0]" descriptor {"+" Module Descriptor}]
-    ["[0]" document {"+" Document}]]])
+ [library
+  [lux {"-" Module}
+   [abstract
+    ["[0]" monad {"+" do}]]
+   [control
+    ["[0]" maybe ("[1]#[0]" functor)]
+    ["[0]" try {"+" Try}]
+    ["[0]" state]
+    [function
+     ["[0]" memo {"+" Memo}]]]
+   [data
+    ["[0]" text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list ("[1]#[0]" functor mix)]
+     ["[0]" dictionary {"+" Dictionary}]
+     ["[0]" set {"+" Set}]]]]]
+ [///
+  ["[0]" archive {"+" Output Archive}
+   [key {"+" Key}]
+   ["[0]" descriptor {"+" Module Descriptor}]
+   ["[0]" document {"+" Document}]]])
 
 (type: .public Ancestry
   (Set Module))
diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
index b5fae7763..94e96ca26 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
@@ -41,8 +41,8 @@
     ["[0]" document {"+" Document}]
     ["[0]" artifact {"+" Artifact Dependency}
      ["[0]" category {"+" Category}]]]
-   [cache
-    ["[0]" dependency]]
+   ["[0]" cache "_"
+    ["[1]/[0]" module]]
    ["/[1]" // {"+" Input}
     [language
      ["$" lux
@@ -395,7 +395,7 @@
 
 (def: (full_purge caches load_order)
   (-> (List [Bit [Module [archive.ID [Descriptor (Document .Module)]]]])
-      dependency.Order
+      cache/module.Order
       Purge)
   (list#mix (function (_ [module_name [module_id [descriptor document]]] purge)
               (let [purged? (: (Predicate Module)
@@ -439,7 +439,7 @@
                                (function (_ [module [module_id [descriptor document]]] archive)
                                  (archive.has module [descriptor document (: Output sequence.empty)] archive))
                                archive)
-                    (# try.monad each (dependency.load_order $.key))
+                    (# try.monad each (cache/module.load_order $.key))
                     (# try.monad conjoint)
                     async#in)
      .let [purge (..full_purge pre_loaded_caches load_order)]
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager.lux b/stdlib/source/library/lux/tool/compiler/meta/packager.lux
index d434c4603..9f37fff18 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager.lux
@@ -13,8 +13,8 @@
    [world
     ["[0]" file]]]]
  [//
-  [cache
-   ["[0]" dependency]]
+  ["[0]" cache "_"
+   ["[1]/[0]" module]]
   ["[0]" archive {"+" Archive}
    ["[0]" descriptor]
    ["[0]" artifact]
@@ -35,7 +35,7 @@
   (List [archive.ID (List artifact.ID)]))
 
 (def: .public order
-  (-> dependency.Order Order)
+  (-> cache/module.Order Order)
   (list#each (function (_ [module [module_id [descriptor document]]])
                (|> descriptor
                    (value@ descriptor.#registry)
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux
index 0f933172d..594f14dd8 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager/jvm.lux
@@ -33,10 +33,10 @@
   [//
    ["[0]" archive {"+" Output}
     ["[0]" descriptor {"+" Module}]
-    ["[0]" artifact]
-    ["tree_shaking" dependency]]
-   [cache
-    ["[0]" dependency]]
+    ["[0]" artifact]]
+   ["[0]" cache "_"
+    ["[1]/[0]" module]
+    ["[1]/[0]" artifact]]
    ["[0]" io "_"
     ["[1]" archive]]
    [//
@@ -253,8 +253,8 @@
   (-> Static Packager)
   (function (_ host_dependencies archive program)
     (do [! try.monad]
-      [.let [necessary_dependencies (tree_shaking.necessary_dependencies archive)]
-       order (dependency.load_order $.key archive)
+      [.let [necessary_dependencies (cache/artifact.necessary_dependencies archive)]
+       order (cache/module.load_order $.key archive)
        .let [buffer (java/io/ByteArrayOutputStream::new (.int ..mebi_byte))]
        sink (|> order
                 (list#each (function (_ [module [module_id [descriptor document output]]])
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
index a375a908a..4cc20607c 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager/ruby.lux
@@ -33,10 +33,10 @@
    ["[0]" archive {"+" Output}
     ["[0]" descriptor {"+" Module Descriptor}]
     ["[0]" artifact]
-    ["[0]" document {"+" Document}]
-    ["tree_shaking" dependency]]
-   [cache
-    ["[0]" dependency {"+" Order}]]
+    ["[0]" document {"+" Document}]]
+   ["[0]" cache "_"
+    ["[1]/[0]" module {"+" Order}]
+    ["[1]/[0]" artifact]]
    ["[0]" io "_"
     ["[1]" archive]]
    [//
@@ -116,8 +116,8 @@
 (def: .public (package host_dependencies archive program)
   Packager
   (do [! try.monad]
-    [.let [necessary_dependencies (tree_shaking.necessary_dependencies archive)]
-     order (dependency.load_order $.key archive)
+    [.let [necessary_dependencies (cache/artifact.necessary_dependencies archive)]
+     order (cache/module.load_order $.key archive)
      entries (monad.mix ! (..write_module (module_id_mapping order) necessary_dependencies) {.#End} order)
      .let [included_modules (..included_modules entries)
            imports (|> order
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux
index 7d6954d1a..c3f3e4867 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager/script.lux
@@ -24,10 +24,10 @@
   [//
    ["[0]" archive {"+" Output}
     ["[0]" descriptor]
-    ["[0]" artifact]
-    ["tree_shaking" dependency]]
-   [cache
-    ["[0]" dependency]]
+    ["[0]" artifact]]
+   ["[0]" cache "_"
+    ["[1]/[0]" module]
+    ["[1]/[0]" artifact]]
    ["[0]" io "_"
     ["[1]" archive]]
    [//
@@ -68,8 +68,8 @@
         Packager))
   (function (package host_dependencies archive program)
     (do [! try.monad]
-      [.let [necessary_dependencies (tree_shaking.necessary_dependencies archive)]
-       order (dependency.load_order $.key archive)]
+      [.let [necessary_dependencies (cache/artifact.necessary_dependencies archive)]
+       order (cache/module.load_order $.key archive)]
       (|> order
           (list#each (function (_ [module [module_id [descriptor document output]]])
                        [module_id output]))
diff --git a/stdlib/source/library/lux/type.lux b/stdlib/source/library/lux/type.lux
index dafd87759..380331c40 100644
--- a/stdlib/source/library/lux/type.lux
+++ b/stdlib/source/library/lux/type.lux
@@ -115,10 +115,10 @@
     (n#encoded idx)
 
     {.#Var id}
-    ($_ text#composite "⌈v:" (n#encoded id) "⌋")
+    ($_ text#composite "-" (n#encoded id))
 
     {.#Ex id}
-    ($_ text#composite "⟨e:" (n#encoded id) "⟩")
+    ($_ text#composite "+" (n#encoded id))
 
     {.#Apply param fun}
     (let [[type_func type_args] (flat_application type)]
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 2b6850cf8..1b7e161d1 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -1,59 +1,57 @@
 (.using
-  [library
-   [lux {"-" Module}
-    [type {"+" :sharing}]
-    ["@" target]
-    ["[0]" debug]
-    [abstract
-     ["[0]" monad {"+" do}]]
-    [control
-     ["[0]" io {"+" IO io}]
-     ["[0]" try {"+" Try}]
-     [concurrency
-      ["[0]" async {"+" Async} ("[1]#[0]" monad)]]]
-    [data
-     [binary {"+" Binary}]
-     ["[0]" product]
-     ["[0]" text
-      ["%" format {"+" format}]]
-     [collection
-      ["[0]" dictionary {"+" Dictionary}]]]
-    [time
-     ["[0]" instant]]
-    ["[0]" world "_"
-     ["[0]" file]
-     ["[0]" console]
-     ["[1]/[0]" program]]
-    [tool
-     [compiler
-      ["[0]" phase]
-      [default
-       ["[0]" platform {"+" Platform}]]
-      [language
-       ["$" lux
-        ["[1]/[0]" program {"+" Program}]
-        ["[0]" syntax]
-        ["[0]" analysis
-         [macro {"+" Expander}]]
-        ["[0]" generation {"+" Buffer Context}]
-        ["[0]" directive]
-        [phase
-         [extension {"+" Extender}]]]]
-      [meta
-       [packager {"+" Packager}]
-       [archive {"+" Archive}
-        [descriptor {"+" Module}]]
-       [cache
-        ["[0]" dependency]]
-       [io
-        ["ioW" archive]]]]
-     ... ["[0]" interpreter]
-     ]]]
-  ["[0]" / "_"
-   ["[1][0]" cli {"+" Service}]
-   ["[1][0]" static {"+" Static}]
-   ["[1][0]" export]
-   ["[1][0]" import]])
+ [library
+  [lux {"-" Module}
+   [type {"+" :sharing}]
+   ["@" target]
+   ["[0]" debug]
+   [abstract
+    ["[0]" monad {"+" do}]]
+   [control
+    ["[0]" io {"+" IO io}]
+    ["[0]" try {"+" Try}]
+    [concurrency
+     ["[0]" async {"+" Async} ("[1]#[0]" monad)]]]
+   [data
+    [binary {"+" Binary}]
+    ["[0]" product]
+    ["[0]" text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" dictionary {"+" Dictionary}]]]
+   [time
+    ["[0]" instant]]
+   ["[0]" world "_"
+    ["[0]" file]
+    ["[0]" console]
+    ["[1]/[0]" program]]
+   [tool
+    [compiler
+     ["[0]" phase]
+     [default
+      ["[0]" platform {"+" Platform}]]
+     [language
+      ["$" lux
+       ["[1]/[0]" program {"+" Program}]
+       ["[0]" syntax]
+       ["[0]" generation {"+" Buffer Context}]
+       ["[0]" directive]
+       ["[0]" analysis
+        [macro {"+" Expander}]]
+       [phase
+        [extension {"+" Extender}]]]]
+     [meta
+      [packager {"+" Packager}]
+      [archive {"+" Archive}
+       [descriptor {"+" Module}]]
+      [io
+       ["ioW" archive]]]]
+    ... ["[0]" interpreter]
+    ]]]
+ ["[0]" / "_"
+  ["[1][0]" cli {"+" Service}]
+  ["[1][0]" static {"+" Static}]
+  ["[1][0]" export]
+  ["[1][0]" import]])
 
 (def: (or_crash! failure_description action)
   (All (_ a)
diff --git a/stdlib/source/test/lux/control/parser/type.lux b/stdlib/source/test/lux/control/parser/type.lux
index 360826130..39656a32c 100644
--- a/stdlib/source/test/lux/control/parser/type.lux
+++ b/stdlib/source/test/lux/control/parser/type.lux
@@ -1,25 +1,27 @@
 (.using
-  [library
-   [lux "*"
-    ["_" test {"+" Test}]
-    [abstract
-     [monad {"+" do}]]
-    [control
-     ["[0]" try]
-     ["[0]" exception]]
-    [data
-     [collection
-      ["[0]" list]]]
-    [math
-     ["[0]" random {"+" Random}]
-     [number
-      ["n" nat]]]
-    [meta
-     ["[0]" symbol ("[1]#[0]" equivalence)]]
-    ["[0]" type ("[1]#[0]" equivalence)]]]
-  [\\library
-   ["[0]" /
-    ["/[1]" //]]])
+ [library
+  [lux "*"
+   ["_" test {"+" Test}]
+   ["[0]" type ("[1]#[0]" equivalence)]
+   [abstract
+    [monad {"+" do}]]
+   [control
+    ["[0]" try]
+    ["[0]" exception]]
+   [data
+    [text
+     ["%" format {"+" format}]]
+    [collection
+     ["[0]" list]]]
+   [math
+    ["[0]" random {"+" Random}]
+    [number
+     ["n" nat]]]
+   [meta
+    ["[0]" symbol ("[1]#[0]" equivalence)]]]]
+ [\\library
+  ["[0]" /
+   ["/[1]" //]]])
 
 (template: (!expect <pattern> <value>)
   [(case <value>
@@ -35,7 +37,7 @@
       (# random.monad each (function (_ name)
                              {.#Primitive name (list)}))))
 
-(def: matches
+(def: test|matches
   Test
   (<| (_.for [/.types_do_not_match])
       (do [! random.monad]
@@ -71,7 +73,7 @@
                                              (exception.match? /.types_do_not_match error))))))
           )))
 
-(def: aggregate
+(def: test|aggregate
   Test
   (do [! random.monad]
     [expected_left ..primitive
@@ -119,7 +121,7 @@
                                                (exception.match? /.not_application error))))))
             ))))
 
-(def: parameter
+(def: test|parameter
   Test
   (do random.monad
     [quantification ..primitive
@@ -163,7 +165,7 @@
                      (!expect {try.#Success [quantification##binding argument##binding _]})))
         )))
 
-(def: polymorphic
+(def: test|polymorphic
   Test
   (do [! random.monad]
     [not_polymorphic ..primitive
@@ -186,6 +188,36 @@
                                            (same? not_polymorphic bodyT))))))
         )))
 
+(def: test|recursive
+  Test
+  (do random.monad
+    [expected ..primitive]
+    ($_ _.and
+        (_.cover [/.recursive]
+                 (|> (.type (Rec @ expected))
+                     (/.result (/.recursive /.any))
+                     (!expect (^multi {try.#Success [@self actual]}
+                                      (type#= expected actual)))))
+        (_.cover [/.recursive_self]
+                 (|> (.type (Rec @ @))
+                     (/.result (/.recursive /.recursive_self))
+                     (!expect (^multi {try.#Success [@expected @actual]}
+                                      (same? @expected @actual)))))
+        (_.cover [/.recursive_call]
+                 (|> (.type (All (self input) (self input)))
+                     (/.result (/.polymorphic /.recursive_call))
+                     (!expect {try.#Success [@self inputs ???]})))
+        (_.cover [/.not_recursive]
+                 (and (|> expected
+                          (/.result (/.recursive /.any))
+                          (!expect (^multi {try.#Failure error}
+                                           (exception.match? /.not_recursive error))))
+                      (|> expected
+                          (/.result /.recursive_self)
+                          (!expect (^multi {try.#Failure error}
+                                           (exception.match? /.not_recursive error))))))
+        )))
+
 (def: .public test
   Test
   (<| (_.covering /._)
@@ -263,8 +295,9 @@
                          (!expect (^multi {try.#Success [actual_name actual_type]}
                                           (and (symbol#= expected_name actual_name)
                                                (type#= expected_type actual_type)))))))
-          ..aggregate
-          ..matches
-          ..parameter
-          ..polymorphic
+          ..test|aggregate
+          ..test|matches
+          ..test|parameter
+          ..test|polymorphic
+          ..test|recursive
           )))
diff --git a/stdlib/source/test/lux/meta/symbol.lux b/stdlib/source/test/lux/meta/symbol.lux
index cdd051770..3e4233939 100644
--- a/stdlib/source/test/lux/meta/symbol.lux
+++ b/stdlib/source/test/lux/meta/symbol.lux
@@ -1,24 +1,24 @@
 (.using
-  [library
-   [lux "*"
-    ["_" test {"+" Test}]
-    [abstract
-     [monad {"+" do}]
-     [\\specification
-      ["$[0]" equivalence]
-      ["$[0]" hash]
-      ["$[0]" order]
-      ["$[0]" codec]]]
-    [control
-     pipe]
-    [data
-     ["[0]" text ("[1]#[0]" equivalence)]]
-    [math
-     ["[0]" random {"+" Random}]
-     [number
-      ["n" nat]]]]]
-  [\\library
-   ["[0]" /]])
+ [library
+  [lux "*"
+   ["_" test {"+" Test}]
+   [abstract
+    [monad {"+" do}]
+    [\\specification
+     ["$[0]" equivalence]
+     ["$[0]" hash]
+     ["$[0]" order]
+     ["$[0]" codec]]]
+   [control
+    pipe]
+   [data
+    ["[0]" text]]
+   [math
+    ["[0]" random {"+" Random}]
+    [number
+     ["n" nat]]]]]
+ [\\library
+  ["[0]" /]])
 
 (def: .public (random module_size short_size)
   (-> Nat Nat (Random Symbol))
@@ -49,12 +49,16 @@
                           ($order.spec /.order (..random sizeM1 sizeS1)))
                    (_.for [/.codec]
                           (_.and ($codec.spec /.equivalence /.codec (..random sizeM1 sizeS1))
-                                 (let [(^open "/#[0]") /.codec]
-                                   (_.test "Encoding a symbol without a module component results in text equal to the short of the symbol."
-                                           (if (text.empty? module1)
-                                             (text#= short1 (/#encoded symbol1))
-                                             #1)))))
-                   
+                                 (_.test "Encoding a symbol without a module component results in text equal to the short of the symbol."
+                                         (if (text.empty? module1)
+                                           (same? short1 (# /.codec encoded symbol1))
+                                           #1))))
+
+                   (_.cover [/.separator]
+                            (let [it (# /.codec encoded symbol1)]
+                              (if (text.empty? module1)
+                                (same? short1 it)
+                                (text.contains? /.separator it))))
                    (_.cover [/.module /.short]
                             (and (same? module1 (/.module symbol1))
                                  (same? short1 (/.short symbol1))))
diff --git a/stdlib/source/test/lux/tool.lux b/stdlib/source/test/lux/tool.lux
index 78aaee40e..219151d6c 100644
--- a/stdlib/source/test/lux/tool.lux
+++ b/stdlib/source/test/lux/tool.lux
@@ -23,7 +23,8 @@
      ["[1]/[0]" artifact]
      ["[1]/[0]" signature]
      ["[1]/[0]" key]
-     ["[1]/[0]" document]]]
+     ["[1]/[0]" document]
+     ["[1]/[0]" registry]]]
    ]])
 
 (def: .public test
@@ -38,6 +39,7 @@
       /meta/archive/signature.test
       /meta/archive/key.test
       /meta/archive/document.test
+      /meta/archive/registry.test
       /phase/extension.test
       /phase/analysis/simple.test
       ... /syntax.test
diff --git a/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux b/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux
new file mode 100644
index 000000000..feee41b0a
--- /dev/null
+++ b/stdlib/source/test/lux/tool/compiler/meta/archive/registry.lux
@@ -0,0 +1,173 @@
+(.using
+ [library
+  [lux "*"
+   ["_" test {"+" Test}]
+   [abstract
+    [monad {"+" do}]]
+   [control
+    ["[0]" maybe ("[1]#[0]" functor)]
+    ["[0]" try ("[1]#[0]" functor)]
+    [parser
+     ["<[0]>" binary]]]
+   [data
+    ["[0]" product]
+    ["[0]" text]
+    [collection
+     ["[0]" sequence {"+" Sequence}]
+     ["[0]" set {"+" Set}]
+     ["[0]" list ("[1]#[0]" mix)]]
+    [format
+     ["[0]" binary]]]
+   [math
+    ["[0]" random {"+" Random}]
+    [number
+     ["n" nat]]]]]
+ [\\library
+  ["[0]" /
+   [//
+    ["[0]" artifact
+     ["[0]" category]]]]])
+
+(template: (tagged? <tag> <it>)
+  [(case <it>
+     {<tag> _}
+     true
+     
+     _
+     false)])
+
+(def: random_dependency
+  (Random artifact.Dependency)
+  ($_ random.and
+      random.nat
+      random.nat
+      ))
+
+(def: (random_dependencies amount)
+  (-> Nat (Random (Set artifact.Dependency)))
+  (random.set artifact.dependency_hash amount ..random_dependency))
+
+(def: .public test
+  Test
+  (<| (_.covering /._)
+      (_.for [/.Registry])
+      (do [! random.monad]
+        [expected_name (random.ascii/lower 5)
+         mandatory? random.bit
+         expected_dependencies (..random_dependencies 5)
+         
+         expected_amount (# ! each (n.% 10) random.nat)
+         expected_names (|> (random.ascii/lower 1)
+                            (random.set text.hash expected_amount)
+                            (# ! each set.list))]
+        (`` ($_ _.and
+                (_.cover [/.empty]
+                         (|> /.empty
+                             /.artifacts
+                             sequence.size
+                             (n.= 0)))
+                (_.cover [/.resource]
+                         (let [[@it registry] (/.resource mandatory? expected_dependencies /.empty)]
+                           (case (sequence.list (/.artifacts registry))
+                             (^ (list [artifact actual_dependencies]))
+                             (and (same? @it (value@ artifact.#id artifact))
+                                  (same? mandatory? (value@ artifact.#mandatory? artifact))
+                                  (tagged? category.#Anonymous (value@ artifact.#category artifact))
+                                  (same? expected_dependencies actual_dependencies))
+
+                             _
+                             false)))
+                (~~ (template [<new> <query> <tag> <wrong_new>]
+                      [(_.cover [<new> <query>]
+                                (and (let [[@it registry] (<new> expected_name mandatory? expected_dependencies /.empty)]
+                                       (and (case (<query> registry)
+                                              (^ (list actual_name))
+                                              (same? expected_name actual_name)
+
+                                              _
+                                              false)
+                                            (case (sequence.list (/.artifacts registry))
+                                              (^ (list [artifact actual_dependencies]))
+                                              (and (same? @it (value@ artifact.#id artifact))
+                                                   (same? mandatory? (value@ artifact.#mandatory? artifact))
+                                                   (case (value@ artifact.#category artifact)
+                                                     {<tag> actual_name}
+                                                     (same? expected_name actual_name)
+
+                                                     _
+                                                     false)
+                                                   (same? expected_dependencies actual_dependencies))
+
+                                              _
+                                              false)))
+                                     (let [[@it registry] (<wrong_new> expected_name mandatory? expected_dependencies /.empty)]
+                                       (case (<query> registry)
+                                         (^ (list))
+                                         true
+
+                                         _
+                                         false))))]
+
+                      [/.definition /.definitions category.#Definition /.analyser]
+                      [/.analyser /.analysers category.#Analyser /.synthesizer]
+                      [/.synthesizer /.synthesizers category.#Synthesizer /.generator]
+                      [/.generator /.generators category.#Generator /.directive]
+                      [/.directive /.directives category.#Directive /.custom]
+                      [/.custom /.customs category.#Custom /.definition]
+                      ))
+                (_.cover [/.id]
+                         (and (~~ (template [<new>]
+                                    [(let [[@expected registry] (<new> expected_name mandatory? expected_dependencies /.empty)]
+                                       (|> (/.id expected_name registry)
+                                           (maybe#each (same? @expected))
+                                           (maybe.else false)))]
+
+                                    [/.definition]
+                                    [/.analyser]
+                                    [/.synthesizer]
+                                    [/.generator]
+                                    [/.directive]
+                                    [/.custom]
+                                    ))))
+                (_.cover [/.artifacts]
+                         (and (~~ (template [<new> <query>]
+                                    [(let [[ids registry] (: [(Sequence artifact.ID) /.Registry]
+                                                             (list#mix (function (_ name [ids registry])
+                                                                         (let [[@new registry] (<new> name mandatory? expected_dependencies registry)]
+                                                                           [(sequence.suffix @new ids) registry]))
+                                                                       [sequence.empty /.empty]
+                                                                       expected_names))
+                                           it (/.artifacts registry)]
+                                       (and (n.= expected_amount (sequence.size it))
+                                            (n.= expected_amount (sequence.size it))
+                                            (list.every? (function (_ [@it [it dependencies]])
+                                                           (same? @it (value@ artifact.#id it)))
+                                                         (list.zipped/2 (sequence.list ids) (sequence.list it)))
+                                            (# (list.equivalence text.equivalence) = expected_names (<query> registry))))]
+
+                                    [/.definition /.definitions]
+                                    [/.analyser /.analysers]
+                                    [/.synthesizer /.synthesizers]
+                                    [/.generator /.generators]
+                                    [/.directive /.directives]
+                                    [/.custom /.customs]
+                                    ))))
+                (_.cover [/.writer /.parser]
+                         (and (~~ (template [<new>]
+                                    [(let [[@expected before] (<new> expected_name mandatory? expected_dependencies /.empty)]
+                                       (|> before
+                                           (binary.result /.writer)
+                                           (<binary>.result /.parser)
+                                           (try#each (|>> (/.id expected_name)
+                                                          (maybe#each (same? @expected))
+                                                          (maybe.else false)))
+                                           (try.else false)))]
+
+                                    [/.definition]
+                                    [/.analyser]
+                                    [/.synthesizer]
+                                    [/.generator]
+                                    [/.directive]
+                                    [/.custom]
+                                    ))))
+                )))))