1 files changed, 22 insertions, 22 deletions
diff --git a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux
index f1dfb0189..c7548669a 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/packager/scheme.lux
@@ -1,7 +1,7 @@
 (.using
  [library
   [lux {"-" Module}
-   [type {"+" :sharing}]
+   [type {"+" sharing}]
    [abstract
     ["[0]" monad {"+" do}]]
    [control
@@ -63,14 +63,14 @@
                     (|> content
                         (# encoding.utf8 decoded)
                         (# try.monad each
-                           (|>> :expected
-                                (:sharing [directive]
-                                          directive
-                                          so_far
-                                          
-                                          directive)
+                           (|>> as_expected
+                                (sharing [directive]
+                                         directive
+                                         so_far
+                                         
+                                         directive)
                                 (..then so_far)))))
-                  (: _.Expression (_.manual "")))))
+                  (is _.Expression (_.manual "")))))
 
 (def: module_file
   (-> archive.ID file.Path)
@@ -100,19 +100,19 @@
       [Module [archive.ID [Descriptor (Document .Module) Output]]]
       (Try tar.Entry))
   (do [! try.monad]
-    [bundle (: (Try _.Expression)
-               (..bundle_module output))
-     entry_content (: (Try tar.Content)
-                      (|> descriptor
-                          (the descriptor.#references)
-                          set.list
-                          (list.all (function (_ module) (dictionary.value module mapping)))
-                          (list#each (|>> ..module_file _.string _.load_relative/1))
-                          (list#mix ..then bundle)
-                          (: _.Expression)
-                          _.code
-                          (# encoding.utf8 encoded)
-                          tar.content))
+    [bundle (is (Try _.Expression)
+                (..bundle_module output))
+     entry_content (is (Try tar.Content)
+                       (|> descriptor
+                           (the descriptor.#references)
+                           set.list
+                           (list.all (function (_ module) (dictionary.value module mapping)))
+                           (list#each (|>> ..module_file _.string _.load_relative/1))
+                           (list#mix ..then bundle)
+                           (is _.Expression)
+                           _.code
+                           (# encoding.utf8 encoded)
+                           tar.content))
      module_file (tar.path (..module_file module_id))]
     (in {tar.#Normal [module_file now ..mode ..ownership entry_content]})))
 
@@ -125,7 +125,7 @@
                          (list#each (function (_ [module [module_id [descriptor document output]]])
                                       [module module_id]))
                          (dictionary.of_list text.hash)
-                         (: (Dictionary Module archive.ID)))]
+                         (is (Dictionary Module archive.ID)))]
        entries (monad.each ! (..write_module now mapping) order)]
       (in (|> entries
               sequence.of_list