De-sigil-ification: suffix : [Part 13]

1 files changed, 15 insertions, 15 deletions

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 a192cf58a..2cef8ada4 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
@@ -56,7 +56,7 @@
       ["[0]" directive]
       ["[1]/[0]" program]]]]]])
 
-(def: (module_parser key parser)
+(def (module_parser key parser)
   (All (_ document)
     (-> (Key document) (Parser document) (Parser (module.Module document))))
   (all <>.and
@@ -64,18 +64,18 @@
        descriptor.parser
        (document.parser key parser)))
 
-(def: (parser key parser)
+(def (parser key parser)
   (All (_ document)
     (-> (Key document) (Parser document) (Parser [(module.Module document) Registry])))
   (all <>.and
        (..module_parser key parser)
        registry.parser))
 
-(def: (fresh_analysis_state host configuration)
+(def (fresh_analysis_state host configuration)
   (-> Target Configuration .Lux)
   (analysis.state (analysis.info version.latest host configuration)))
 
-(def: (analysis_state host configuration archive)
+(def (analysis_state host configuration archive)
   (-> Target Configuration Archive (Try .Lux))
   (do [! try.monad]
     [modules (is (Try (List [descriptor.Module .Module]))
@@ -101,14 +101,14 @@
    Generators
    Directives])
 
-(def: empty_bundles
+(def empty_bundles
   Bundles
   [(dictionary.empty text.hash)
    (dictionary.empty text.hash)
    (dictionary.empty text.hash)
    (dictionary.empty text.hash)])
 
-(def: (loaded_document extension host @module expected actual document)
+(def (loaded_document extension host @module expected actual document)
   (All (_ expression directive)
     (-> Text (generation.Host expression directive) module.ID (Sequence [Artifact (Set unit.ID)]) (Dictionary Text Binary) (Document .Module)
         (Try [(Document .Module) Bundles Output])))
@@ -246,7 +246,7 @@
     (in [(document.document $.key (has .#definitions definitions content))
          bundles])))
 
-(def: (load_definitions fs context @module host_environment entry)
+(def (load_definitions fs context @module host_environment entry)
   (All (_ expression directive)
     (-> (file.System Async) Context module.ID (generation.Host expression directive)
         (archive.Entry .Module)
@@ -263,11 +263,11 @@
              (has archive.#output output))
          bundles])))
 
-(def: pseudo_module
+(def pseudo_module
   Text
   "(Lux Caching System)")
 
-(def: (cache_parser customs)
+(def (cache_parser customs)
   (-> (List Custom) (Parser [(module.Module Any) Registry]))
   (case (for @.old (as (List (Custom Any Any Any))
                        customs)
@@ -281,7 +281,7 @@
          (cache_parser tail)
          )))
 
-(def: (valid_cache customs fs context import contexts [module_name @module])
+(def (valid_cache customs fs context import contexts [module_name @module])
   (-> (List Custom) (file.System Async) Context Import (List //.Context)
       [descriptor.Module module.ID]
       (Async (Try Cache)))
@@ -296,7 +296,7 @@
           [input (//context.read fs ..pseudo_module import contexts (the context.#host_module_extension context) module_name)]
           (in [(cache/purge.valid? (the module.#descriptor module) input) <cache>]))))))
 
-(def: (pre_loaded_caches customs fs context import contexts archive)
+(def (pre_loaded_caches customs fs context import contexts archive)
   (-> (List Custom) (file.System Async) Context Import (List //.Context) Archive
       (Async (Try (List Cache))))
   (do [! (try.with async.monad)]
@@ -306,7 +306,7 @@
             (monad.each ! (..valid_cache customs fs context import contexts)))]
     (in it)))
 
-(def: (load_order archive pre_loaded_caches)
+(def (load_order archive pre_loaded_caches)
   (-> Archive (List Cache)
       (Try (dependency.Order .Module)))
   (|> pre_loaded_caches
@@ -321,7 +321,7 @@
       (at try.monad each (dependency.load_order $.key))
       (at try.monad conjoint)))
 
-(def: (loaded_caches host_environment fs context purge load_order)
+(def (loaded_caches host_environment fs context purge load_order)
   (All (_ expression directive)
     (-> (generation.Host expression directive) (file.System Async) Context
         Purge (dependency.Order .Module)
@@ -343,7 +343,7 @@
                                          <it>)))))))]
     (in it)))
 
-(def: (load_every_reserved_module customs configuration host_environment fs context import contexts archive)
+(def (load_every_reserved_module customs configuration host_environment fs context import contexts archive)
   (All (_ expression directive)
     (-> (List Custom) Configuration (generation.Host expression directive) (file.System Async) Context Import (List //.Context) Archive
         (Async (Try [Archive .Lux Bundles]))))
@@ -374,7 +374,7 @@
                       ..empty_bundles
                       loaded_caches)])))))
 
-(def: .public (thaw customs configuration host_environment fs context import contexts)
+(def .public (thaw customs configuration host_environment fs context import contexts)
   (All (_ expression directive)
     (-> (List Custom) Configuration (generation.Host expression directive) (file.System Async) Context Import (List //.Context)
         (Async (Try [Archive .Lux Bundles]))))