From ec1f31b5a1492d5e0ab260397291d4449483bbd9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 23 Aug 2021 02:30:53 -0400
Subject: The Python compiler can now be compiled by the new JVM compiler.

---
 stdlib/source/program/aedifex/command/build.lux | 32 ++++++++++++-------------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'stdlib/source/program/aedifex/command/build.lux')

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)))))
 
-- 
cgit v1.2.3