No more #export magic syntax.

2 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 125360e58..21d657352 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/io/archive.lux
@@ -51,7 +51,7 @@
        ["." directive]
        ["#/." program]]]]]])
 
-(exception: #export (cannot_prepare {archive file.Path}
+(exception: .public (cannot_prepare {archive file.Path}
                                     {module_id archive.ID}
                                     {error Text})
   (exception.report
@@ -83,7 +83,7 @@
           (\ fs separator)
           (%.nat module_id)))
 
-(def: #export (artifact fs static module_id artifact_id)
+(def: .public (artifact fs static module_id artifact_id)
   (All [!] (-> (file.System !) Static archive.ID artifact.ID file.Path))
   (format (..module fs static module_id)
           (\ fs separator)
@@ -98,7 +98,7 @@
       (in (#try.Success []))
       (\ fs make_directory path))))
 
-(def: #export (prepare fs static module_id)
+(def: .public (prepare fs static module_id)
   (-> (file.System Async) Static archive.ID (Async (Try Any)))
   (do {! async.monad}
     [.let [module (..module fs static module_id)]
@@ -118,11 +118,11 @@
                                                                      module_id
                                                                      error])))))))))
 
-(def: #export (write fs static module_id artifact_id content)
+(def: .public (write fs static module_id artifact_id content)
   (-> (file.System Async) Static archive.ID artifact.ID Binary (Async (Try Any)))
   (\ fs write content (..artifact fs static module_id artifact_id)))
 
-(def: #export (enable fs static)
+(def: .public (enable fs static)
   (-> (file.System Async) Static (Async (Try Any)))
   (do (try.with async.monad)
     [_ (..ensure_directory fs (get@ #static.target static))]
@@ -134,7 +134,7 @@
           (\ fs separator)
           "general_descriptor"))
 
-(def: #export (freeze fs static archive)
+(def: .public (freeze fs static archive)
   (-> (file.System Async) Static Archive (Async (Try Any)))
   (\ fs write (archive.export ///.version archive) (..general_descriptor fs static)))
 
@@ -147,7 +147,7 @@
           (\ fs separator)
           ..module_descriptor_file))
 
-(def: #export (cache fs static module_id content)
+(def: .public (cache fs static module_id content)
   (-> (file.System Async) Static archive.ID Binary (Async (Try Any)))
   (\ fs write content (..module_descriptor fs static module_id)))
 
@@ -459,7 +459,7 @@
                        ..empty_bundles
                        loaded_caches)])))))
 
-(def: #export (thaw host_environment fs static import contexts)
+(def: .public (thaw host_environment fs static import contexts)
   (All [expression directive]
     (-> (generation.Host expression directive) (file.System Async) Static Import (List Context)
         (Async (Try [Archive .Lux Bundles]))))
diff --git a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux
index e049ef8b5..81ac25578 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux
@@ -29,23 +29,23 @@
      [descriptor (#+ Module)]]
     ["/#" // (#+ Input)]]])
 
-(exception: #export (cannot_find_module {importer Module} {module Module})
+(exception: .public (cannot_find_module {importer Module} {module Module})
   (exception.report
    ["Module" (%.text module)]
    ["Importer" (%.text importer)]))
 
-(exception: #export (cannot_read_module {module Module})
+(exception: .public (cannot_read_module {module Module})
   (exception.report
    ["Module" (%.text module)]))
 
-(type: #export Extension
+(type: .public Extension
   Text)
 
 (def: lux_extension
   Extension
   ".lux")
 
-(def: #export (path fs context module)
+(def: .public (path fs context module)
   (All [m] (-> (file.System m) Context Module file.Path))
   (|> module
       (//.safe fs)
@@ -120,7 +120,7 @@
       (#try.Failure _)
       (in (..find_library_source_file importer import partial_host_extension module)))))
 
-(def: #export (read fs importer import contexts partial_host_extension module)
+(def: .public (read fs importer import contexts partial_host_extension module)
   (-> (file.System Async) Module Import (List Context) Extension Module
       (Async (Try Input)))
   (do (try.with async.monad)
@@ -135,7 +135,7 @@
       (#try.Failure _)
       (async\in (exception.except ..cannot_read_module [module])))))
 
-(type: #export Enumeration
+(type: .public Enumeration
   (Dictionary file.Path Binary))
 
 (def: (context_listing fs directory enumeration)
@@ -159,7 +159,7 @@
 (def: Action
   (type (All [a] (Async (Try a)))))
 
-(def: #export (listing fs contexts)
+(def: .public (listing fs contexts)
   (-> (file.System Async) (List Context) (Action Enumeration))
   (monad.fold (: (Monad Action)
                  (try.with async.monad))