The Python compiler can now be compiled by the new JVM compiler.

5 files changed, 24 insertions, 24 deletions

diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index e4de9ab0a..d3c5b17a0 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -16,7 +16,7 @@
      ["." text ("#\." order)
       ["%" format (#+ format)]]
      [collection
-      ["." list ("#\." functor fold)]
+      ["." list ("#\." functor mix)]
       ["." dictionary (#+ Dictionary)]
       ["." set]]]
     [math
@@ -159,21 +159,21 @@
        (list.only (|>> (value@ #///dependency.type)
                        (text\= ///artifact/type.lux_library)
                        not))
-       (list\fold (function (_ dependency uniques)
-                    (let [artifact (value@ #///dependency.artifact dependency)
-                          identity [(value@ #///artifact.group artifact)
-                                    (value@ #///artifact.name artifact)]
-                          version (value@ #///artifact.version artifact)]
-                      (case (dictionary.value identity uniques)
-                        (#.Some [current_version current_path])
-                        (if (\ version_order < version current_version)
-                          (dictionary.has identity [version dependency] uniques)
-                          uniques)
-                        
-                        #.None
-                        (dictionary.has identity [version dependency] uniques))))
-                  (: (Dictionary [Group Name] [Version Dependency])
-                     (dictionary.empty (product.hash text.hash text.hash))))
+       (list\mix (function (_ dependency uniques)
+                   (let [artifact (value@ #///dependency.artifact dependency)
+                         identity [(value@ #///artifact.group artifact)
+                                   (value@ #///artifact.name artifact)]
+                         version (value@ #///artifact.version artifact)]
+                     (case (dictionary.value identity uniques)
+                       (#.Some [current_version current_path])
+                       (if (\ version_order < version current_version)
+                         (dictionary.has identity [version dependency] uniques)
+                         uniques)
+                       
+                       #.None
+                       (dictionary.has identity [version dependency] uniques))))
+                 (: (Dictionary [Group Name] [Version Dependency])
+                    (dictionary.empty (product.hash text.hash text.hash))))
        dictionary.values
        (list\map (|>> product.right (..path fs home)))))
 
diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux
index 38f975939..62ec8e985 100644
--- a/stdlib/source/program/aedifex/command/deploy.lux
+++ b/stdlib/source/program/aedifex/command/deploy.lux
@@ -69,8 +69,8 @@
         repository
         [artifact ///artifact/type.lux_library]
         (let [pom_data (|> pom
-                           (\ xml.codec encode)
-                           (\ utf8.codec encode))]
+                           (\ xml.codec encoded)
+                           (\ utf8.codec encoded))]
           {#///package.origin (#///repository/origin.Remote "")
            #///package.library [library
                                 (///dependency/status.verified library)]
diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux
index 3c8381e51..c1b0990f5 100644
--- a/stdlib/source/program/aedifex/command/deps.lux
+++ b/stdlib/source/program/aedifex/command/deps.lux
@@ -10,7 +10,7 @@
     [data
      [collection
       ["." set (#+ Set)]
-      ["." list ("#\." fold)]
+      ["." list ("#\." mix)]
       ["." dictionary]]
      [text
       ["%" format]]]
@@ -55,7 +55,7 @@
                                                                                  cache)]
     (do ///action.monad
       [cached (|> (dictionary.keys cache)
-                  (list\fold dictionary.lacks resolution)
+                  (list\mix dictionary.lacks resolution)
                   (///dependency/deployment.all local))
        _ (console.write_line (exception.report
                               ["Local successes" (|> local_successes
diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux
index f0677afc7..37a5c77b1 100644
--- a/stdlib/source/program/aedifex/command/install.lux
+++ b/stdlib/source/program/aedifex/command/install.lux
@@ -64,8 +64,8 @@
        _ (///dependency/deployment.one repository
                                        [identity ///artifact/type.lux_library]
                                        (let [pom_data (|> pom
-                                                          (\ xml.codec encode)
-                                                          (\ utf8.codec encode))]
+                                                          (\ xml.codec encoded)
+                                                          (\ utf8.codec encoded))]
                                          {#///package.origin (#///origin.Local "")
                                           #///package.library (let [library (binary.result tar.writer package)]
                                                                 [library (///dependency/status.verified library)])
diff --git a/stdlib/source/program/aedifex/command/pom.lux b/stdlib/source/program/aedifex/command/pom.lux
index 163fa87fa..c43982a98 100644
--- a/stdlib/source/program/aedifex/command/pom.lux
+++ b/stdlib/source/program/aedifex/command/pom.lux
@@ -29,8 +29,8 @@
   (-> (Console Async) (file.System Async) (Command Any))
   (do ///action.monad
     [content (|> (///pom.write profile)
-                 (try\map (|>> (\ xml.codec encode)
-                               (\ utf8.codec encode)))
+                 (try\map (|>> (\ xml.codec encoded)
+                               (\ utf8.codec encoded)))
                  async\in)
      _ (\ fs write content ///pom.file)]
     (console.write_line ..success console)))