De-sigil-ification: /

19 files changed, 41 insertions, 41 deletions

diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/coverage.lux b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/coverage.lux
index 9c5a1c045..ccb3e06ed 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/analysis/coverage.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/analysis/coverage.lux
@@ -113,7 +113,7 @@
         (and (n.= (list.size flatR) (list.size flatS))
              (list.every? (function (_ [coverageR coverageS])
                             (= coverageR coverageS))
-                          (list.zipped/2 flatR flatS))))
+                          (list.zipped_2 flatR flatS))))
 
       _
       #0)))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/complex.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/complex.lux
index fba921765..fdb485bbd 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/complex.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/analysis/complex.lux
@@ -339,7 +339,7 @@
              (in [])
              (/.except ..record_size_mismatch [size_ts size_record recordT record]))
          .let [tuple_range (list.indices size_ts)
-               tag->idx (dictionary.of_list symbol.hash (list.zipped/2 slot_set tuple_range))]
+               tag->idx (dictionary.of_list symbol.hash (list.zipped_2 slot_set tuple_range))]
          idx->val (monad.mix !
                              (function (_ [key val] idx->val)
                                (do !
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux
index ce1654cd4..95915309c 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/jvm.lux
@@ -1192,7 +1192,7 @@
                                   (list.size parameters))
                              (list.every? (function (_ [expectedJC actualJC])
                                             (jvm#= expectedJC (de_aliased aliasing actualJC)))
-                                          (list.zipped/2 parameters inputsJT)))]]
+                                          (list.zipped_2 parameters inputsJT)))]]
     (in (and correct_class?
              correct_method?
              same_static?
@@ -1210,7 +1210,7 @@
              (n.= (list.size inputsJT) (list.size parameters))
              (list.every? (function (_ [expectedJC actualJC])
                             (jvm#= expectedJC (de_aliased aliasing actualJC)))
-                          (list.zipped/2 parameters inputsJT))))))
+                          (list.zipped_2 parameters inputsJT))))))
 
 (def: index_parameter
   (-> Nat .Type)
@@ -1369,7 +1369,7 @@
 
 (def: (aliasing expected actual)
   (-> (List (Type Var)) (List (Type Var)) Aliasing)
-  (|> (list.zipped/2 (list#each parser.name actual)
+  (|> (list.zipped_2 (list#each parser.name actual)
                      (list#each parser.name expected))
       (dictionary.of_list text.hash)))
 
@@ -1488,7 +1488,7 @@
 (def: (decorate_inputs typesT inputsA)
   (-> (List (Type Value)) (List Analysis) (List Analysis))
   (|> inputsA
-      (list.zipped/2 (list#each (|>> ..signature /////analysis.text) typesT))
+      (list.zipped_2 (list#each (|>> ..signature /////analysis.text) typesT))
       (list#each (function (_ [type value])
                    (/////analysis.tuple (list type value))))))
 
@@ -2169,7 +2169,7 @@
                                    phase.lifted)]
             (|> super_parameters
                 (monad.each ! (..reflection_type mapping))
-                (# ! each (|>> (list.zipped/2 parent_parameters)))))
+                (# ! each (|>> (list.zipped_2 parent_parameters)))))
           (phase.lifted (exception.except ..mismatched_super_parameters [parent_name expected_count actual_count]))))
       
       {.#None}
@@ -2301,7 +2301,7 @@
      _ (phase.assertion ..class_parameter_mismatch [name class expected_parameters actual_parameters]
                         (n.= (list.size expected_parameters)
                              (list.size actual_parameters)))]
-    (in (|> (list.zipped/2 expected_parameters actual_parameters)
+    (in (|> (list.zipped_2 expected_parameters actual_parameters)
             (list#mix (function (_ [expected actual] mapping)
                         (case (parser.var? actual)
                           {.#Some actual}
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux
index a018f3ab3..d2f911155 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/analysis/lux.lux
@@ -60,7 +60,7 @@
                                (function (_ [argT argC])
                                  (<| (typeA.expecting argT)
                                      (analyse archive argC)))
-                               (list.zipped/2 inputsT+ args))]
+                               (list.zipped_2 inputsT+ args))]
             (in {////analysis.#Extension extension_name argsA}))
           (////analysis.except ///.incorrect_arity [extension_name num_expected num_actual]))))))
 
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux
index 121fd29fa..c8c48451e 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/common.lux
@@ -67,7 +67,7 @@
 (def: f64//decode
   (Unary Expression)
   (|>> list
-       (_.apply/* (_.var "parseFloat"))
+       (_.apply_* (_.var "parseFloat"))
        _.return
        (_.closure (list))
        //runtime.lux//try))
@@ -76,7 +76,7 @@
   (Unary Expression)
   (|>> //runtime.i64##number
        (list)
-       (_.apply/* (_.var "String.fromCharCode"))))
+       (_.apply_* (_.var "String.fromCharCode"))))
 
 ... [[Text]]
 (def: (text//concat [leftG rightG])
@@ -167,7 +167,7 @@
                                                       (in [(list#each (|>> .int _.int) chars)
                                                            branch!])))
                                                 conditionals))]
-                 ... (in (_.apply/* (_.closure (list)
+                 ... (in (_.apply_* (_.closure (list)
                  ...                           (_.switch (_.the //runtime.i64_low_field inputG)
                  ...                                     conditionals!
                  ...                                     {.#Some (_.return else!)}))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/host.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/host.lux
index 77908df35..f3305a2d5 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/host.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/extension/generation/js/host.lux
@@ -124,7 +124,7 @@
       (do [! ////////phase.monad]
         [abstractionG (phase archive abstractionS)
          inputsG (monad.each ! (phase archive) inputsS)]
-        (in (_.apply/* abstractionG inputsG))))]))
+        (in (_.apply_* abstractionG inputsG))))]))
 
 (def: js::function
   (custom
@@ -142,9 +142,9 @@
                        ($_ _.then
                            (_.define g!abstraction abstractionG)
                            (_.return (case (.nat arity)
-                                       0 (_.apply/1 g!abstraction //runtime.unit)
-                                       1 (_.apply/* g!abstraction g!inputs)
-                                       _ (_.apply/1 g!abstraction (_.array g!inputs)))))))))]))
+                                       0 (_.apply_1 g!abstraction //runtime.unit)
+                                       1 (_.apply_* g!abstraction g!inputs)
+                                       _ (_.apply_1 g!abstraction (_.array g!inputs)))))))))]))
 
 (def: .public bundle
   Bundle
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux
index f98ce4c6f..4fc1e5427 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/common_lisp/runtime.lux
@@ -92,7 +92,7 @@
   (do [! meta.monad]
     [ids (monad.all ! (list.repeated (list.size vars) meta.seed))]
     (in (list (` (let [(~+ (|> vars
-                               (list.zipped/2 ids)
+                               (list.zipped_2 ids)
                                (list#each (function (_ [id var])
                                             (list (code.local var)
                                                   (` (_.var (~ (code.text (format "v" (%.nat id)))))))))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux
index 4c3e03ca3..1573a17e5 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/case.lux
@@ -63,7 +63,7 @@
     [valueO (expression archive valueS)
      bodyO (expression archive bodyS)]
     ... TODO: Find some way to do 'let' without paying the price of the closure.
-    (in (_.apply/* (_.closure (list (..register register))
+    (in (_.apply_* (_.closure (list (..register register))
                               (_.return bodyO))
                    (list valueO)))))
 
@@ -342,4 +342,4 @@
   (-> Phase! (Generator [Synthesis Path]))
   (do ///////phase.monad
     [pattern_matching! (..case! statement expression archive [valueS pathP])]
-    (in (_.apply/* (_.closure (list) pattern_matching!) (list)))))
+    (in (_.apply_* (_.closure (list) pattern_matching!) (list)))))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux
index 06f2a1884..39fdda23a 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/function.lux
@@ -38,7 +38,7 @@
   (do [! ///////phase.monad]
     [functionO (expression archive functionS)
      argsO+ (monad.each ! (expression archive) argsS+)]
-    (in (_.apply/* functionO argsO+))))
+    (in (_.apply_* functionO argsO+))))
 
 (def: capture
   (-> Register Var)
@@ -56,7 +56,7 @@
                             (|> (list.enumeration inits)
                                 (list#each (|>> product.left ..capture)))
                             (_.return (_.function @self (list) body!)))
-     (_.apply/* @self inits)]))
+     (_.apply_* @self inits)]))
 
 (def: @curried
   (_.var "curried"))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/loop.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/loop.lux
index c18131d4c..5321ca9f8 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/loop.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/loop.lux
@@ -93,7 +93,7 @@
     _
     (do [! ///////phase.monad]
       [loop! (scope! statement expression archive [start initsS+ bodyS])]
-      (in (_.apply/* (_.closure (list) loop!) (list))))))
+      (in (_.apply_* (_.closure (list) loop!) (list))))))
 
 (def: @temp
   (_.var "lux_again_values"))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux
index af22a192b..36db99857 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/js/runtime.lux
@@ -86,7 +86,7 @@
   (do [! meta.monad]
     [ids (monad.all ! (list.repeated (list.size vars) meta.seed))]
     (in (list (` (let [(~+ (|> vars
-                               (list.zipped/2 ids)
+                               (list.zipped_2 ids)
                                (list#each (function (_ [id var])
                                             (list (code.local var)
                                                   (` (_.var (~ (code.text (format "v" (%.nat id)))))))))
@@ -118,7 +118,7 @@
               inputs_typesC (list#each (function.constant (` _.Expression)) inputs)]
           (in (list (` (def: .public ((~ g!name) (~+ inputsC))
                          (-> (~+ inputs_typesC) Computation)
-                         (_.apply/* (~ runtime_name) (list (~+ inputsC)))))
+                         (_.apply_* (~ runtime_name) (list (~+ inputsC)))))
                     
                     (` (def: (~ (code.local (format "@" name)))
                          Statement
@@ -241,7 +241,7 @@
 
 (runtime: (lux//try op)
   (with_vars [ex]
-    (_.try (_.return (..right (_.apply/1 op ..unit)))
+    (_.try (_.return (..right (_.apply_1 op ..unit)))
            [ex (_.return (..left (|> ex (_.do "toString" (list)))))])))
 
 (runtime: (lux//program_args inputs)
@@ -590,14 +590,14 @@
                          ($_ _.then
                              (_.define approximate (|> (i64##number remainder)
                                                        (_./ (i64##number parameter))
-                                                       (_.apply/1 (_.var "Math.floor"))
-                                                       (_.apply/2 (_.var "Math.max") (_.i32 +1))))
+                                                       (_.apply_1 (_.var "Math.floor"))
+                                                       (_.apply_2 (_.var "Math.max") (_.i32 +1))))
                              (_.define log2 (|> approximate
-                                                (_.apply/1 (_.var "Math.log"))
+                                                (_.apply_1 (_.var "Math.log"))
                                                 (_./ (_.var "Math.LN2"))
-                                                (_.apply/1 (_.var "Math.ceil"))))
+                                                (_.apply_1 (_.var "Math.ceil"))))
                              (_.define delta (_.? (_.> (_.i32 +48) log2)
-                                                  (_.apply/2 (_.var "Math.pow")
+                                                  (_.apply_2 (_.var "Math.pow")
                                                              (_.i32 +2)
                                                              (_.- (_.i32 +48)
                                                                   log2))
@@ -692,10 +692,10 @@
               end!))
         (_.if (|> print _.type_of (_.= (_.string "undefined")) _.not)
           ($_ _.then
-              (_.statement (_.apply/1 print (_.? (_.= (_.string "string")
+              (_.statement (_.apply_1 print (_.? (_.= (_.string "string")
                                                       (_.type_of message))
                                                  message
-                                                 (_.apply/1 (_.var "JSON.stringify") message))))
+                                                 (_.apply_1 (_.var "JSON.stringify") message))))
               end!))
         end!)))
 
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/runtime.lux
index dfce813ed..be52af3e7 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/runtime.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/lua/runtime.lux
@@ -108,7 +108,7 @@
   (do [! meta.monad]
     [ids (monad.all ! (list.repeated (list.size vars) meta.seed))]
     (in (list (` (let [(~+ (|> vars
-                               (list.zipped/2 ids)
+                               (list.zipped_2 ids)
                                (list#each (function (_ [id var])
                                             (list (code.local var)
                                                   (` (_.var (~ (code.text (format "v" (%.nat id)))))))))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/runtime.lux
index 165bbd55d..5baba49fc 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/runtime.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/php/runtime.lux
@@ -75,7 +75,7 @@
   (do [! meta.monad]
     [ids (monad.all ! (list.repeated (list.size vars) meta.seed))]
     (in (list (` (let [(~+ (|> vars
-                               (list.zipped/2 ids)
+                               (list.zipped_2 ids)
                                (list#each (function (_ [id var])
                                             (list (code.local var)
                                                   (` (_.var (~ (code.text (format "v" (%.nat id)))))))))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux
index adddebae3..525b2a108 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/python/runtime.lux
@@ -114,7 +114,7 @@
   (do [! meta.monad]
     [ids (monad.all ! (list.repeated (list.size vars) meta.seed))]
     (in (list (` (let [(~+ (|> vars
-                               (list.zipped/2 ids)
+                               (list.zipped_2 ids)
                                (list#each (function (_ [id var])
                                             (list (code.local var)
                                                   (` (_.var (~ (code.text (format "v" (%.nat id)))))))))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/runtime.lux
index 02c38d130..c6ff7f292 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/runtime.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/r/runtime.lux
@@ -81,7 +81,7 @@
   (do [! meta.monad]
     [ids (monad.all ! (list.repeated (list.size vars) meta.seed))]
     (in (list (` (let [(~+ (|> vars
-                               (list.zipped/2 ids)
+                               (list.zipped_2 ids)
                                (list#each (function (_ [id var])
                                             (list (code.local var)
                                                   (` (_.var (~ (code.text (format "v" (%.nat id)))))))))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux
index 086c1ff0c..ed673e53a 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/ruby/runtime.lux
@@ -73,7 +73,7 @@
   (do [! meta.monad]
     [ids (monad.all ! (list.repeated (list.size vars) meta.seed))]
     (in (list (` (let [(~+ (|> vars
-                               (list.zipped/2 ids)
+                               (list.zipped_2 ids)
                                (list#each (function (_ [id var])
                                             (list (code.local var)
                                                   (` (_.local (~ (code.text (format "v" (%.nat id)))))))))
diff --git a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/runtime.lux b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/runtime.lux
index bc785f38d..f40915ce9 100644
--- a/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/runtime.lux
+++ b/stdlib/source/library/lux/tool/compiler/language/lux/phase/generation/scheme/runtime.lux
@@ -63,7 +63,7 @@
   (do [! meta.monad]
     [ids (monad.all ! (list.repeated (list.size vars) meta.seed))]
     (in (list (` (let [(~+ (|> vars
-                               (list.zipped/2 ids)
+                               (list.zipped_2 ids)
                                (list#each (function (_ [id var])
                                             (list (code.local var)
                                                   (` (_.var (~ (code.text (format "v" (%.nat id)))))))))
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 3e9726924..26ee6ba8e 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/archive/registry.lux
@@ -135,7 +135,7 @@
           dependencies (is (Writer (Set unit.ID))
                            (binary.set dependency))
           artifacts (is (Writer (Sequence [Category Bit (Set unit.ID)]))
-                        (binary.sequence/64 ($_ binary.and category mandatory? dependencies)))]
+                        (binary.sequence_64 ($_ binary.and category mandatory? dependencies)))]
       (|>> representation
            (the #artifacts)
            (sequence#each (function (_ [it dependencies])
@@ -181,7 +181,7 @@
                          (<>.and <binary>.nat <binary>.nat))
           dependencies (is (Parser (Set unit.ID))
                            (<binary>.set unit.hash dependency))]
-      (|> (<binary>.sequence/64 ($_ <>.and category mandatory? dependencies))
+      (|> (<binary>.sequence_64 ($_ <>.and category mandatory? dependencies))
           (# <>.monad each (sequence#mix (function (_ [category mandatory? dependencies] registry)
                                            (product.right
                                             (case category
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 3abcfbf5a..548a89b36 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/io/context.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/io/context.lux
@@ -149,7 +149,7 @@
                                               (if (text.ends_with? ..lux_extension file)
                                                 (do !
                                                   [source_code (# fs read file)]
-                                                  (async#in (dictionary.has' (text.replaced/1 context "" file) source_code enumeration)))
+                                                  (async#in (dictionary.has' (text.replaced_once context "" file) source_code enumeration)))
                                                 (in enumeration)))
                                           enumeration))
                      (# ! conjoint))]