Re-named the directory for my bookmarks to better reflect what they are.

19 files changed, 84 insertions, 84 deletions

diff --git a/stdlib/source/lux/tool/compiler/language/lux/generation.lux b/stdlib/source/lux/tool/compiler/language/lux/generation.lux
index 8a6e0825d..64e66be2d 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/generation.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/generation.lux
@@ -219,7 +219,7 @@
 (def: #export (save! name code)
   (All [anchor expression directive]
     (-> Text directive (Operation anchor expression directive Any)))
-  (do {@ phase.monad}
+  (do {! phase.monad}
     [?buffer (extension.read (get@ #buffer))]
     (case ?buffer
       (#.Some buffer)
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/case.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/case.lux
index ab1cc08de..6d66678ac 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/case.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/case.lux
@@ -230,7 +230,7 @@
           (///////phase@wrap (_.define (..register register) ..peek-cursor))
 
           (#/////synthesis.Bit-Fork when thenP elseP)
-          (do {@ ///////phase.monad}
+          (do {! ///////phase.monad}
             [then! (recur thenP)
              else! (.case elseP
                      (#.Some elseP)
@@ -247,9 +247,9 @@
                       then!))))
 
           (#/////synthesis.I64-Fork cons)
-          (do {@ ///////phase.monad}
-            [clauses (monad.map @ (function (_ [match then])
-                                    (do @
+          (do {! ///////phase.monad}
+            [clauses (monad.map ! (function (_ [match then])
+                                    (do !
                                       [then! (recur then)]
                                       (wrap [(//runtime.i64//= (//primitive.i64 (.int match))
                                                                ..peek-cursor)
@@ -259,9 +259,9 @@
 
           (^template [<tag> <format> <type>]
             (<tag> cons)
-            (do {@ ///////phase.monad}
-              [cases (monad.map @ (function (_ [match then])
-                                    (:: @ map (|>> [(list (<format> match))]) (recur then)))
+            (do {! ///////phase.monad}
+              [cases (monad.map ! (function (_ [match then])
+                                    (:: ! map (|>> [(list (<format> match))]) (recur then)))
                                 (#.Cons cons))]
               (wrap (_.switch ..peek-cursor
                               cases
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/function.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/function.lux
index 93b400c37..0f311d61b 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/function.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/function.lux
@@ -30,9 +30,9 @@
 
 (def: #export (apply generate archive [functionS argsS+])
   (Generator (Application Synthesis))
-  (do {@ ///////phase.monad}
+  (do {! ///////phase.monad}
     [functionO (generate archive functionS)
-     argsO+ (monad.map @ (generate archive) argsS+)]
+     argsO+ (monad.map ! (generate archive) argsS+)]
     (wrap (_.apply/* functionO argsO+))))
 
 (def: (with-closure @self inits function-body)
@@ -64,10 +64,10 @@
 
 (def: #export (function statement expression archive [environment arity bodyS])
   (-> Phase! (Generator (Abstraction Synthesis)))
-  (do {@ ///////phase.monad}
+  (do {! ///////phase.monad}
     [[function-name body!] (/////generation.with-new-context archive
-                             (do @
-                               [scope (:: @ map ..@scope
+                             (do !
+                               [scope (:: ! map ..@scope
                                           (/////generation.context archive))]
                                (/////generation.with-anchor [1 scope]
                                  (statement expression archive bodyS))))
@@ -84,7 +84,7 @@
                                         (_.define (..input post) (_.at (_.i32 (.int post)) @@arguments))))
                                   initialize-self!
                                   (list.indices arity))]
-     environment (monad.map @ (expression archive) environment)
+     environment (monad.map ! (expression archive) environment)
      #let [[definition instantiation] (with-closure @self environment
                                         ($_ _.then
                                             (_.define @num-args (_.the "length" @@arguments))
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux
index 05ac70a6a..f73decb82 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux
@@ -85,8 +85,8 @@
 
 (syntax: #export (with-vars {vars (s.tuple (p.some s.local-identifier))}
                    body)
-  (do {@ macro.monad}
-    [ids (monad.seq @ (list.repeat (list.size vars) macro.count))]
+  (do {! macro.monad}
+    [ids (monad.seq ! (list.repeat (list.size vars) macro.count))]
     (wrap (list (` (let [(~+ (|> vars
                                  (list.zip/2 ids)
                                  (list@map (function (_ [id var])
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/structure.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/structure.lux
index dee0aa051..acd36a5ba 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/structure.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/js/structure.lux
@@ -23,8 +23,8 @@
     (generate archive singletonS)
 
     _
-    (do {@ ///////phase.monad}
-      [elemsT+ (monad.map @ (generate archive) elemsS+)]
+    (do {! ///////phase.monad}
+      [elemsT+ (monad.map ! (generate archive) elemsS+)]
       (wrap (_.array elemsT+)))))
 
 (def: #export (variant generate archive [lefts right? valueS])
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/lua/function.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/lua/function.lux
index 0f440080f..8f9a4ce74 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/lua/function.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/lua/function.lux
@@ -27,9 +27,9 @@
 
 (def: #export (apply generate archive [functionS argsS+])
   (Generator (Application Synthesis))
-  (do {@ ///////phase.monad}
+  (do {! ///////phase.monad}
     [functionO (generate archive functionS)
-     argsO+ (monad.map @ (generate archive) argsS+)]
+     argsO+ (monad.map ! (generate archive) argsS+)]
     (wrap (_.apply/* argsO+ functionO))))
 
 (def: #export capture
@@ -45,8 +45,8 @@
       (wrap (|> (_.var function-name) (_.apply/* inits))))
 
     _
-    (do {@ ///////phase.monad}
-      [@closure (:: @ map _.var (/////generation.gensym "closure"))
+    (do {! ///////phase.monad}
+      [@closure (:: ! map _.var (/////generation.gensym "closure"))
        #let [directive (_.function @closure
                          (|> (list.enumeration inits)
                              (list@map (|>> product.left ..capture)))
@@ -62,15 +62,15 @@
 
 (def: #export (function generate archive [environment arity bodyS])
   (Generator (Abstraction Synthesis))
-  (do {@ ///////phase.monad}
+  (do {! ///////phase.monad}
     [[function-name bodyO] (/////generation.with-new-context
-                             (do @
-                               [function-name (:: @ map ///reference.artifact-name
+                             (do !
+                               [function-name (:: ! map ///reference.artifact-name
                                                   /////generation.context)]
                                (/////generation.with-anchor (_.var function-name)
                                  (generate archive bodyS))))
      closureO+ (: (Operation (List (Expression Any)))
-                  (monad.map @ (:: //reference.system variable) environment))
+                  (monad.map ! (:: //reference.system variable) environment))
      #let [function-name (///reference.artifact-name function-name)
            @curried (_.var "curried")
            arityO (|> arity .int _.int)
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/lua/loop.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/lua/loop.lux
index 957924e8f..f65883c4c 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/lua/loop.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/lua/loop.lux
@@ -27,9 +27,9 @@
 
 (def: #export (scope generate archive [start initsS+ bodyS])
   (Generator (Scope Synthesis))
-  (do {@ ///////phase.monad}
-    [@loop (:: @ map ..loop-name /////generation.next)
-     initsO+ (monad.map @ (generate archive) initsS+)
+  (do {! ///////phase.monad}
+    [@loop (:: ! map ..loop-name /////generation.next)
+     initsO+ (monad.map ! (generate archive) initsS+)
      bodyO (/////generation.with-anchor @loop
              (generate archive bodyS))
      #let [directive (_.function @loop (|> initsS+
@@ -42,7 +42,7 @@
 
 (def: #export (recur generate archive argsS+)
   (Generator (List Synthesis))
-  (do {@ ///////phase.monad}
+  (do {! ///////phase.monad}
     [@scope /////generation.anchor
-     argsO+ (monad.map @ (generate archive) argsS+)]
+     argsO+ (monad.map ! (generate archive) argsS+)]
     (wrap (_.apply/* argsO+ @scope))))
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/php/case.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/php/case.lux
index 34368c147..811ce3c93 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/php/case.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/php/case.lux
@@ -216,13 +216,13 @@
 
 (def: #export (case generate [valueS pathP])
   (-> Phase [Synthesis Path] (Operation (Expression Any)))
-  (do {@ ////.monad}
+  (do {! ////.monad}
     [initG (generate valueS)
      pattern-matching! (pattern-matching generate pathP)
      @case (..gensym "case")
      #let [@caseG (_.global @case)
            @caseL (_.var @case)]
-     @init (:: @ map _.var (..gensym "init"))
+     @init (:: ! map _.var (..gensym "init"))
      #let [@dependencies+ (|> (case.storage pathP)
                               (get@ #case.dependencies)
                               set.to-list
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/php/function.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/php/function.lux
index d03d4babc..58fb0a4b9 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/php/function.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/php/function.lux
@@ -26,9 +26,9 @@
 
 (def: #export (apply generate [functionS argsS+])
   (-> Phase (Application Synthesis) (Operation (Expression Any)))
-  (do {@ ////.monad}
+  (do {! ////.monad}
     [functionG (generate functionS)
-     argsG+ (monad.map @ generate argsS+)]
+     argsG+ (monad.map ! generate argsS+)]
     (wrap (_.apply/* argsG+ functionG))))
 
 (def: #export capture
@@ -39,15 +39,15 @@
 
 (def: #export (function generate [environment arity bodyS])
   (-> Phase (Abstraction Synthesis) (Operation (Expression Any)))
-  (do {@ ////.monad}
+  (do {! ////.monad}
     [[function-name bodyG] (///.with-context
-                             (do @
+                             (do !
                                [function-name ///.context]
                                (///.with-anchor (_.var function-name)
                                  (generate bodyS))))
      closureG+ (: (Operation (List Argument))
-                  (monad.map @ (|>> (:: //reference.system variable)
-                                    (:: @ map _.reference))
+                  (monad.map ! (|>> (:: //reference.system variable)
+                                    (:: ! map _.reference))
                              environment))
      #let [@curried (_.var "curried")
            arityG (|> arity .int _.int)
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/php/loop.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/php/loop.lux
index 15734c737..000789484 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/php/loop.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/php/loop.lux
@@ -22,11 +22,11 @@
 
 (def: #export (scope generate [start initsS+ bodyS])
   (-> Phase (Scope Synthesis) (Operation (Expression Any)))
-  (do {@ ////.monad}
-    [@loop (:: @ map (|>> %.nat (format "loop")) ///.next)
+  (do {! ////.monad}
+    [@loop (:: ! map (|>> %.nat (format "loop")) ///.next)
      #let [@loopG (_.global @loop)
            @loopL (_.var @loop)]
-     initsO+ (monad.map @ generate initsS+)
+     initsO+ (monad.map ! generate initsS+)
      bodyO (///.with-anchor @loopL
              (generate bodyS))
      #let [directive ($_ _.then
@@ -44,7 +44,7 @@
 
 (def: #export (recur generate argsS+)
   (-> Phase (List Synthesis) (Operation (Expression Any)))
-  (do {@ ////.monad}
+  (do {! ////.monad}
     [@scope ///.anchor
-     argsO+ (monad.map @ generate argsS+)]
+     argsO+ (monad.map ! generate argsS+)]
     (wrap (_.apply/* argsO+ @scope))))
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/python/function.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/python/function.lux
index 30f3f38fd..043941530 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/python/function.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/python/function.lux
@@ -27,9 +27,9 @@
 
 (def: #export (apply generate archive [functionS argsS+])
   (Generator (Application Synthesis))
-  (do {@ ///////phase.monad}
+  (do {! ///////phase.monad}
     [functionO (generate archive functionS)
-     argsO+ (monad.map @ (generate archive) argsS+)]
+     argsO+ (monad.map ! (generate archive) argsS+)]
     (wrap (_.apply/* functionO argsO+))))
 
 (def: #export capture
@@ -45,8 +45,8 @@
       (wrap (_.apply/* (_.var function-name) inits)))
 
     _
-    (do {@ ///////phase.monad}
-      [@closure (:: @ map _.var (/////generation.gensym "closure"))
+    (do {! ///////phase.monad}
+      [@closure (:: ! map _.var (/////generation.gensym "closure"))
        #let [directive (_.def @closure
                               (|> (list.enumeration inits)
                                   (list@map (|>> product.left ..capture)))
@@ -62,15 +62,15 @@
 
 (def: #export (function generate archive [environment arity bodyS])
   (Generator (Abstraction Synthesis))
-  (do {@ ///////phase.monad}
+  (do {! ///////phase.monad}
     [[function-name bodyO] (/////generation.with-new-context
-                             (do @
-                               [function-name (:: @ map ///reference.artifact-name
+                             (do !
+                               [function-name (:: ! map ///reference.artifact-name
                                                   /////generation.context)]
                                (/////generation.with-anchor (_.var function-name)
                                  (generate archive bodyS))))
      closureO+ (: (Operation (List (Expression Any)))
-                  (monad.map @ (:: //reference.system variable) environment))
+                  (monad.map ! (:: //reference.system variable) environment))
      #let [function-name (///reference.artifact-name function-name)
            @curried (_.var "curried")
            arityO (|> arity .int _.int)
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/python/loop.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/python/loop.lux
index 042cbba35..49fd86575 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/python/loop.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/python/loop.lux
@@ -27,9 +27,9 @@
 
 (def: #export (scope generate archive [start initsS+ bodyS])
   (Generator (Scope Synthesis))
-  (do {@ ///////phase.monad}
-    [@loop (:: @ map ..loop-name /////generation.next)
-     initsO+ (monad.map @ (generate archive) initsS+)
+  (do {! ///////phase.monad}
+    [@loop (:: ! map ..loop-name /////generation.next)
+     initsO+ (monad.map ! (generate archive) initsS+)
      bodyO (/////generation.with-anchor @loop
              (generate archive bodyS))
      #let [directive (_.def @loop (|> initsS+
@@ -42,7 +42,7 @@
 
 (def: #export (recur generate archive argsS+)
   (Generator (List Synthesis))
-  (do {@ ///////phase.monad}
+  (do {! ///////phase.monad}
     [@scope /////generation.anchor
-     argsO+ (monad.map @ (generate archive) argsS+)]
+     argsO+ (monad.map ! (generate archive) argsS+)]
     (wrap (_.apply/* @scope argsO+))))
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux
index 76a25d333..df8fccb33 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/ruby/function.lux
@@ -27,9 +27,9 @@
 
 (def: #export (apply generate archive [functionS argsS+])
   (Generator (Application Synthesis))
-  (do {@ ///////phase.monad}
+  (do {! ///////phase.monad}
     [functionO (generate archive functionS)
-     argsO+ (monad.map @ (generate archive) argsS+)]
+     argsO+ (monad.map ! (generate archive) argsS+)]
     (wrap (_.do "call" argsO+ functionO))))
 
 (def: #export capture
@@ -54,15 +54,15 @@
 
 (def: #export (function generate archive [environment arity bodyS])
   (Generator (Abstraction Synthesis))
-  (do {@ ///////phase.monad}
+  (do {! ///////phase.monad}
     [[function-name bodyO] (/////generation.with-new-context
-                             (do @
-                               [function-name (:: @ map ///reference.artifact-name
+                             (do !
+                               [function-name (:: ! map ///reference.artifact-name
                                                   /////generation.context)]
                                (/////generation.with-anchor (_.local function-name)
                                  (generate archive bodyS))))
      closureO+ (: (Operation (List (Expression Any)))
-                  (monad.map @ (:: //reference.system variable) environment))
+                  (monad.map ! (:: //reference.system variable) environment))
      #let [function-name (///reference.artifact-name function-name)
            @curried (_.local "curried")
            arityO (|> arity .int _.int)
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/ruby/loop.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/ruby/loop.lux
index 149e67c31..c9c68139c 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/ruby/loop.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/ruby/loop.lux
@@ -27,9 +27,9 @@
 
 (def: #export (scope generate archive [start initsS+ bodyS])
   (Generator (Scope Synthesis))
-  (do {@ ///////phase.monad}
-    [@loop (:: @ map ..loop-name /////generation.next)
-     initsO+ (monad.map @ (generate archive) initsS+)
+  (do {! ///////phase.monad}
+    [@loop (:: ! map ..loop-name /////generation.next)
+     initsO+ (monad.map ! (generate archive) initsS+)
      bodyO (/////generation.with-anchor @loop
              (generate archive bodyS))]
     (wrap (|> (_.return bodyO)
@@ -41,7 +41,7 @@
 
 (def: #export (recur generate archive argsS+)
   (Generator (List Synthesis))
-  (do {@ ///////phase.monad}
+  (do {! ///////phase.monad}
     [@scope /////generation.anchor
-     argsO+ (monad.map @ (generate archive) argsS+)]
+     argsO+ (monad.map ! (generate archive) argsS+)]
     (wrap (_.apply/* argsO+ @scope))))
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux
index a413a878a..034c72a19 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/scheme/case.lux
@@ -164,8 +164,8 @@
 
 (def: #export (case generate [valueS pathP])
   (-> Phase [Synthesis Path] (Operation Computation))
-  (do {@ ////.monad}
+  (do {! ////.monad}
     [valueO (generate valueS)]
-    (<| (:: @ map (_.let (list [@cursor (_.list/* (list valueO))]
+    (<| (:: ! map (_.let (list [@cursor (_.list/* (list valueO))]
                                [@savepoint (_.list/* (list))])))
         (pattern-matching generate pathP))))
diff --git a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux
index d56ae6504..18a74a4a3 100644
--- a/stdlib/source/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux
+++ b/stdlib/source/lux/tool/compiler/language/lux/phase/generation/scheme/structure.lux
@@ -22,8 +22,8 @@
     (generate singletonS)
 
     _
-    (do {@ ///.monad}
-      [elemsT+ (monad.map @ generate elemsS+)]
+    (do {! ///.monad}
+      [elemsT+ (monad.map ! generate elemsS+)]
       (wrap (_.vector/* elemsT+)))))
 
 (def: #export (variant generate [lefts right? valueS])
diff --git a/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux b/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux
index 1619794d1..f34f72acd 100644
--- a/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux
+++ b/stdlib/source/lux/tool/compiler/meta/archive/artifact.lux
@@ -124,15 +124,15 @@
   (def: #export parser
     (Parser Registry)
     (let [category (: (Parser Category)
-                      (do {@ <>.monad}
+                      (do {! <>.monad}
                         [tag <b>.nat]
                         (case tag
-                          0 (:: @ map (|>> #Anonymous) <b>.any)
-                          1 (:: @ map (|>> #Definition) <b>.text)
-                          2 (:: @ map (|>> #Analyser) <b>.text)
-                          3 (:: @ map (|>> #Synthesizer) <b>.text)
-                          4 (:: @ map (|>> #Generator) <b>.text)
-                          5 (:: @ map (|>> #Directive) <b>.text)
+                          0 (:: ! map (|>> #Anonymous) <b>.any)
+                          1 (:: ! map (|>> #Definition) <b>.text)
+                          2 (:: ! map (|>> #Analyser) <b>.text)
+                          3 (:: ! map (|>> #Synthesizer) <b>.text)
+                          4 (:: ! map (|>> #Generator) <b>.text)
+                          5 (:: ! map (|>> #Directive) <b>.text)
                           _ (<>.fail (exception.construct ..invalid-category [tag])))))]
       (|> (<b>.row/64 category)
           (:: <>.monad map (row@fold (function (_ artifact registry)
diff --git a/stdlib/source/lux/tool/compiler/meta/packager/jvm.lux b/stdlib/source/lux/tool/compiler/meta/packager/jvm.lux
index f4cf769eb..c807e5279 100644
--- a/stdlib/source/lux/tool/compiler/meta/packager/jvm.lux
+++ b/stdlib/source/lux/tool/compiler/meta/packager/jvm.lux
@@ -131,7 +131,7 @@
 
 (def: #export (package monad file-system static archive program)
   (All [!] (Packager !))
-  (do {@ (try.with monad)}
+  (do {! (try.with monad)}
     [cache (:share [!]
                    {(Monad !)
                     monad}
@@ -152,7 +152,7 @@
                (:: monad wrap))
      #let [buffer (java/io/ByteArrayOutputStream::new (.int ..mebi-byte))
            sink (java/util/jar/JarOutputStream::new buffer (..manifest program))]
-     sink (monad.fold @ (..write-module monad file-system static) sink order)
+     sink (monad.fold ! (..write-module monad file-system static) sink order)
      #let [_ (do-to sink
                (java/io/Flushable::flush)
                (java/io/Closeable::close))]]
diff --git a/stdlib/source/lux/tool/compiler/meta/packager/script.lux b/stdlib/source/lux/tool/compiler/meta/packager/script.lux
index bbbba4978..a80c28af1 100644
--- a/stdlib/source/lux/tool/compiler/meta/packager/script.lux
+++ b/stdlib/source/lux/tool/compiler/meta/packager/script.lux
@@ -72,7 +72,7 @@
         (-> directive directive directive)
         (Packager !)))
   (function (package monad file-system static archive program)
-    (do {@ (try.with monad)}
+    (do {! (try.with monad)}
       [cache (!.use (:: file-system directory) [(get@ #static.target static)])
        order (:: monad wrap (dependency.load-order $.key archive))]
       (|> order
@@ -83,5 +83,5 @@
                            artifact.artifacts
                            row.to-list
                            (list@map (|>> (get@ #artifact.id))))]))
-          (monad.fold @ (..write-module monad file-system static sequence) header)
-          (:: @ map (|>> to-code encoding.to-utf8))))))
+          (monad.fold ! (..write-module monad file-system static sequence) header)
+          (:: ! map (|>> to-code encoding.to-utf8))))))